(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    140940,       3552]
NotebookOptionsPosition[    125216,       3208]
NotebookOutlinePosition[    125889,       3234]
CellTagsIndexPosition[    125808,       3229]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[{
 "New in: ",
 Cell["0.7", "HistoryData",
  CellTags->"New",ExpressionUUID->"4b3a2922-999b-42c5-9e9b-ca245a7f303c"],
 " | Modified in: ",
 Cell[" 2.0.0", "HistoryData",
  CellTags->"Modified",ExpressionUUID->"8d68d5e4-fc9c-4888-9e66-62f2ce772678"],
 " | Obsolete in: ",
 Cell[" ", "HistoryData",
  CellTags->"Obsolete",ExpressionUUID->"b834ffe4-1426-494c-b674-66d681fb87e5"],
 " | Excised in: ",
 Cell[" ", "HistoryData",
  CellTags->"Excised",ExpressionUUID->"ec09c3b1-802c-46b3-a1ac-b4bffe731d71"]
}], "History",
 CellChangeTimes->{{3.787044523770784*^9, 3.787044524365738*^9}},
 CellID->1247902091,ExpressionUUID->"e168b6b8-ea0f-4c8a-b237-0444814dadb3"],

Cell[CellGroupData[{

Cell["Categorization", "CategorizationSection",
 CellID->1122911449,ExpressionUUID->"57894432-0d5d-4441-a980-b615273aef80"],

Cell["Symbol", "Categorization",
 CellLabel->"Entity Type",
 CellID->686433507,ExpressionUUID->"19cb10dd-43e8-40d5-b246-1d4a12eb467c"],

Cell["MaXrd", "Categorization",
 CellChangeTimes->{3.743836555898898*^9},
 CellLabel->"Paclet Name",
 CellID->605800465,ExpressionUUID->"047d43ab-6303-45eb-aa86-06b284ee7bff"],

Cell["MaXrd`", "Categorization",
 CellChangeTimes->{3.743836556283269*^9},
 CellLabel->"Context",
 CellID->468444828,ExpressionUUID->"0ce07056-87b6-4cf3-80cb-b07e36081d4a"],

Cell["MaXrd/ref/ReflectionList", "Categorization",
 CellChangeTimes->{3.743836556641451*^9},
 CellLabel->"URI",ExpressionUUID->"4f78c245-f84c-4504-a958-816f95034ef2"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Keywords", "KeywordsSection",
 CellID->477174294,ExpressionUUID->"c14f3866-f355-4e10-86ff-860ef33ab86b"],

Cell["XXXX", "Keywords",
 CellID->1164421360,ExpressionUUID->"2ab93a39-ba41-4afa-a1eb-664a862bdd3a"]
}, Closed]],

Cell[CellGroupData[{

Cell["Syntax Templates", "TemplatesSection",
 CellID->1872225408,ExpressionUUID->"4bc37646-9493-4d02-8d66-e70487a4ac13"],

Cell[BoxData[""], "Template",
 CellLabel->"Additional Function Template",
 CellID->1562036412,ExpressionUUID->"6fe25e42-d671-4444-9267-6ed48f54b881"],

Cell[BoxData[""], "Template",
 CellLabel->"Arguments Pattern",
 CellID->158391909,ExpressionUUID->"f261a0e0-fa4a-4488-9d45-3bfc955d0698"],

Cell[BoxData[""], "Template",
 CellLabel->"Local Variables",
 CellID->1360575930,ExpressionUUID->"49831bfd-a809-48e5-a302-fa571aa685d7"],

Cell[BoxData[""], "Template",
 CellLabel->"Color Equal Signs",
 CellID->793782254,ExpressionUUID->"586193ea-67e5-4c6c-8902-2dc615c7eee8"]
}, Closed]],

Cell[CellGroupData[{

Cell["Details", "DetailsSection",
 CellID->307771771,ExpressionUUID->"c28bbfd1-222b-44cb-baaf-b446b4d09c02"],

Cell["XXXX", "Details",
 CellLabel->"Lead",
 CellID->670882175,ExpressionUUID->"3f74d902-6904-4a8c-9327-f80728df6fad"],

Cell["XXXX", "Details",
 CellLabel->"Developers",
 CellID->350963985,ExpressionUUID->"5d59d122-508f-4a35-a36e-4aa3d063db9d"],

Cell["XXXX", "Details",
 CellLabel->"Authors",
 CellID->8391405,ExpressionUUID->"18262251-5847-4f63-a8e9-cb055a831471"],

Cell["XXXX", "Details",
 CellLabel->"Feature Name",
 CellID->3610269,ExpressionUUID->"eaf8a865-0ebd-4655-b402-4a2b48cc11fc"],

Cell["XXXX", "Details",
 CellLabel->"QA",
 CellID->401364205,ExpressionUUID->"778f0bcf-c7ff-4b3b-8ec9-0e3e70392981"],

Cell["XXXX", "Details",
 CellLabel->"DA",
 CellID->350204745,ExpressionUUID->"e702ea61-aed8-43fa-8163-e331c5c4e816"],

Cell["XXXX", "Details",
 CellLabel->"Docs",
 CellID->732958810,ExpressionUUID->"54d3788a-ad00-4366-8e17-2360b7ebb4fc"],

Cell["XXXX", "Details",
 CellLabel->"Features Page Notes",
 CellID->222905350,ExpressionUUID->"d5c4b301-fd01-4fbb-91e4-f7ad890f4aa4"],

Cell["XXXX", "Details",
 CellLabel->"Comments",
 CellID->240026365,ExpressionUUID->"c2f14522-ee9e-4711-b77c-708e4e7052ce"]
}, Closed]],

Cell[CellGroupData[{

Cell["ReflectionList", "ObjectName",
 CellID->1224892054,ExpressionUUID->"d3244336-63af-4f42-aba8-2adb977cd05f"],

Cell[TextData[{
 Cell["   ", "ModInfo",ExpressionUUID->"98483e85-2b0f-4b6a-b737-1868056948c0"],
 Cell[BoxData[
  RowBox[{
   ButtonBox["ReflectionList",
    BaseStyle->"Link",
    ButtonData->"paclet:MaXrd/ref/ReflectionList"], "[", 
   StyleBox["n", "TI"], "]"}]], "InlineFormula",ExpressionUUID->
  "49d4e966-3246-4f29-a6e9-4467cc67d79e"],
 "\[LineSeparator]generates a list of all possible ",
 Cell[BoxData[
  RowBox[{"{", 
   RowBox[{
    StyleBox["h", "TI"], ",", 
    StyleBox["k", "TI"], ",", 
    StyleBox["l", "TI"]}], "}"}]], "InlineFormula",ExpressionUUID->
  "ce92d084-429c-465a-89f9-e5e7124bff9e"],
 " combinations up to an integer ",
 Cell[BoxData[
  StyleBox["n", "TI"]], "InlineFormula",ExpressionUUID->
  "ebb0b766-56d9-411a-877c-442d43b7cad6"],
 ".\n",
 Cell["      ", "ModInfo",ExpressionUUID->
  "818dd45d-bb7b-4802-a378-acf0748edb35"],
 Cell[BoxData[
  RowBox[{
   ButtonBox["ReflectionList",
    BaseStyle->"Link",
    ButtonData->"paclet:MaXrd/ref/ReflectionList"], "[", 
   RowBox[{
    StyleBox["n", "TI"], ",", 
    StyleBox["condition", "TI"]}], "]"}]], "InlineFormula",ExpressionUUID->
  "ab5c854d-af82-4169-a176-6a09a574ab56"],
 "\[LineSeparator]generates a list of all possible ",
 Cell[BoxData[
  RowBox[{"{", 
   RowBox[{
    StyleBox["h", "TI"], ",", 
    StyleBox["k", "TI"], ",", 
    StyleBox["l", "TI"]}], "}"}]], "InlineFormula",ExpressionUUID->
  "898ef3e7-2674-47d6-924d-87420e9352ec"],
 " combinations up to an integer ",
 Cell[BoxData[
  StyleBox["n", "TI"]], "InlineFormula",ExpressionUUID->
  "da35c325-43c0-46a8-bf0b-93e4f78733f7"],
 " that also satisfies ",
 Cell[BoxData[
  StyleBox["condition", "TI"]], "InlineFormula",ExpressionUUID->
  "309c8187-f14a-457e-b5ab-22c488c9b9c3"],
 ".\n",
 Cell["      ", "ModInfo",ExpressionUUID->
  "00501263-8dab-41f5-bd8a-07f082ad54cd"],
 Cell[BoxData[
  RowBox[{
   ButtonBox["ReflectionList",
    BaseStyle->"Link",
    ButtonData->"paclet:MaXrd/ref/ReflectionList"], "[", 
   StyleBox["crystal", "TI"], "]"}]], "InlineFormula",ExpressionUUID->
  "8144822b-d3dd-466c-942d-34a6e3618d9b"],
 "\[LineSeparator]generates a list of reflections for the given ",
 Cell[BoxData[
  StyleBox["crystal", "TI"]], "InlineFormula",ExpressionUUID->
  "609360bd-484e-4e14-a80c-602408b8a4e0"],
 " and the corresponding wavelength stored in ",
 Cell[BoxData[
  ButtonBox["$CrystalData",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/$CrystalData"]], "InlineFormula",
  ExpressionUUID->"50f0aacd-dcf5-4f7b-adc8-63a39a6ce426"],
 ".\n",
 Cell["      ", "ModInfo",ExpressionUUID->
  "8e931761-27fe-4cfe-8b2a-636a2398da3a"],
 Cell[BoxData[
  RowBox[{
   ButtonBox["ReflectionList",
    BaseStyle->"Link",
    ButtonData->"paclet:MaXrd/ref/ReflectionList"], "[", 
   RowBox[{
    StyleBox["crystal", "TI"], ",", 
    StyleBox["\[Lambda]", "TR"]}], "]"}]], "InlineFormula",ExpressionUUID->
  "b818694d-ecaf-4b5e-bbb5-bfd583ae4c21"],
 "\[LineSeparator]generates a list of reflections for the given ",
 Cell[BoxData[
  StyleBox["crystal", "TI"]], "InlineFormula",ExpressionUUID->
  "a848ef73-98f6-4845-9437-87a31f8e6c8e"],
 " and wavelength ",
 Cell[BoxData[
  StyleBox["\[Lambda]", "TR"]], "InlineFormula",ExpressionUUID->
  "3f04f8d6-494a-4ba8-94d7-5b8a928fee9b"],
 ".\n",
 Cell["      ", "ModInfo",ExpressionUUID->
  "0acae2e7-48ea-4c57-aa86-d5618185b787"],
 Cell[BoxData[
  RowBox[{
   ButtonBox["ReflectionList",
    BaseStyle->"Link",
    ButtonData->"paclet:MaXrd/ref/ReflectionList"], "[", 
   RowBox[{
    StyleBox["crystal", "TI"], ",", 
    StyleBox["\[Lambda]", "TR"], ",", 
    StyleBox["condition", "TI"]}], "]"}]], "InlineFormula",ExpressionUUID->
  "8499645a-169c-47e8-83a8-8ede655173a1"],
 "\[LineSeparator]generates a list of reflections for the given ",
 Cell[BoxData[
  StyleBox["crystal", "TI"]], "InlineFormula",ExpressionUUID->
  "fad001f2-6f69-44e6-afa1-c69a4821fddc"],
 " and wavelength ",
 Cell[BoxData[
  StyleBox["\[Lambda]", "TR"]], "InlineFormula",ExpressionUUID->
  "51ccd05e-86ca-4230-997c-356c2014a9ca"],
 ", also taking ",
 Cell[BoxData[
  StyleBox["condition", "TI"]], "InlineFormula",ExpressionUUID->
  "76b6b16b-e80a-40b2-bcf4-4f44b4f13f22"],
 " into account."
}], "Usage",
 CellChangeTimes->{{3.684219968742119*^9, 3.684219968836645*^9}, {
   3.6844943503763113`*^9, 3.6844944203723707`*^9}, {3.6844944827384863`*^9, 
   3.684494645590789*^9}, {3.684663497894355*^9, 3.684663500497808*^9}, {
   3.684670413619316*^9, 3.684670476161738*^9}, 3.734098168006282*^9},
 CellID->982511436,ExpressionUUID->"05270fb7-37a8-4477-880e-b3993792be35"],

Cell[TextData[{
 Cell[BoxData[
  StyleBox["n", "TI"]], "InlineFormula",ExpressionUUID->
  "2fbd10e4-6f50-48a6-9121-d1afe90e9edf"],
 " must be a natural number."
}], "Notes",
 CellChangeTimes->{{3.6866598664905987`*^9, 3.68665988373311*^9}, {
  3.7148479915326443`*^9, 3.714848025164446*^9}, {3.714848069219347*^9, 
  3.714848131888299*^9}},
 CellID->1681993590,ExpressionUUID->"a9a37840-4b7b-4a4d-b79f-23d2f3b0a34a"],

Cell[TextData[{
 "The lists generated from ",
 Cell[BoxData[
  RowBox[{
   ButtonBox["ReflectionList",
    BaseStyle->"Link",
    ButtonData->"paclet:MaXrd/ref/ReflectionList"], "[", 
   StyleBox["n", "TI"], "]"}]], "InlineFormula",ExpressionUUID->
  "dde644cc-b6bf-4fa7-b117-10f4a2be788f"],
 " will never contain the reflection ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     StyleBox["h", "TI"], ",", 
     StyleBox["k", "TI"], ",", 
     StyleBox["l", "TI"]}], "}"}], "=", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0"}], "}"}]}]], "InlineFormula",
  ExpressionUUID->"a51a0172-7c3d-4e6b-8512-6283b90490a1"],
 ", for any ",
 Cell[BoxData[
  StyleBox["n", "TI"]], "InlineFormula",ExpressionUUID->
  "31fd62ea-c2bf-4170-ba23-1f685bddbc36"],
 ". The list will have length equal to ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", " ", "n"}], "+", "1"}], ")"}], "3"], "-", "1"}], 
   TraditionalForm]], "InlineMath",ExpressionUUID->
  "bf2e00c9-c7ad-4d75-aba6-97df9bfe9050"],
 "."
}], "Notes",
 CellChangeTimes->{{3.6844947350762367`*^9, 3.684494784981657*^9}, {
  3.685768829463913*^9, 3.6857688316667967`*^9}, {3.714848103666218*^9, 
  3.714848152778388*^9}},
 CellID->1067943069,ExpressionUUID->"0f5d4d8c-a3db-4733-b342-1b9f266ec66d"],

Cell[TextData[{
 "This function makes use of ",
 Cell[BoxData[
  ButtonBox["SystematicAbsentQ",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/SystematicAbsentQ"]], "InlineFormula",
  ExpressionUUID->"0494105d-e074-4f7c-8be8-828e19b6b2f3"],
 " and ",
 Cell[BoxData[
  ButtonBox["MergeSymmetryEquivalentReflections",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/MergeSymmetryEquivalentReflections"]], 
  "InlineFormula",ExpressionUUID->"908335f7-fa79-4383-9891-aa8d47dfcb97"],
 ". The function also filters out reflections that correspond to an imaginary \
Bragg angle for wavelength ",
 Cell[BoxData[
  StyleBox["\[Lambda]", "TR"]], "InlineFormula",ExpressionUUID->
  "dd30d783-9855-444d-87be-5125a6b50ef7"],
 "."
}], "Notes",
 CellChangeTimes->{{3.684494790937467*^9, 3.684494798394588*^9}, {
  3.6844948332164507`*^9, 3.6844948603200693`*^9}, {3.71722569566255*^9, 
  3.717225702859706*^9}, {3.780307691177075*^9, 3.7803076911773777`*^9}, {
  3.780307772874279*^9, 3.78030777404743*^9}},
 CellID->1413831905,ExpressionUUID->"e3fca178-bb07-4ced-97d9-d29425cfabd5"],

Cell["Options include:", "Notes",
 CellChangeTimes->{{3.6844949854018087`*^9, 3.684494987743247*^9}},
 CellID->592600918,ExpressionUUID->"3da585b9-f7aa-4b85-b3e7-0a16c9887301"],

Cell[BoxData[GridBox[{
   {Cell["      ", "ModInfo",ExpressionUUID->
     "840c9068-906a-42b1-8ebe-68e199e8ce56"], "\"\<AngleThreshold\>\"", 
    RowBox[{"90.", "*", "Degree"}], Cell["\<\
ignore relfections with Bragg angles [degree] above this limit\
\>", "TableText",ExpressionUUID->"bbd50e02-0ea9-4cd1-819a-052bc10e6f8b"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "f90112cb-4392-4a6c-bb98-f2a4f340260d"], "\"\<CustomReflections\>\"", 
    ButtonBox["False",
     BaseStyle->"Link",
     ButtonData->"paclet:ref/False"], Cell[
    "a list of custom reflections may be input if desired", "TableText",
     ExpressionUUID->"07d81250-0c6d-4e69-a01b-bf8a0b4b9650"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "8d2c9b83-0c65-402f-9ed9-cd78dae50e31"], "\"\<HoldIndex\>\"", 
    ButtonBox["False",
     BaseStyle->"Link",
     ButtonData->"paclet:ref/False"], Cell[
    "lock the value of a certain index", "TableText",ExpressionUUID->
     "f3fbaa35-419f-4f71-b737-a14164280104"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "97dc4896-5f37-42e1-bd39-80974459d249"], "\"\<Keep\>\"", 
    ButtonBox["All",
     BaseStyle->"Link",
     ButtonData->"paclet:ref/All"], Cell[
    "limit the number of reflections to output", "TableText",ExpressionUUID->
     "a95b9724-43a3-4e40-b38d-6061cbf8fb56"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "5ffe59c4-a3f3-4540-8b9d-18f84d3919b0"], "\"\<Limit\>\"", "15", Cell[
    "limits the highest value any Miller index can have", "TableText",
     ExpressionUUID->"743a34ee-5c7b-4575-ab98-7128e8a1ad5c"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "49aa85be-9b72-46a7-aee0-b1cb4785da88"], "\"\<ShowProgess\>\"", 
    ButtonBox["True",
     BaseStyle->"Link",
     ButtonData->"paclet:ref/True"], Cell[
    "whether to display a progress bar", "TableText",ExpressionUUID->
     "50cd9efd-ea5c-48f7-87ef-dfecc87243f1"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "0d659ff4-ac1e-49f5-b806-104443e235d1"], "\"\<SplitEquivalent\>\"", 
    ButtonBox["False",
     BaseStyle->"Link",
     ButtonData->"paclet:ref/False"], Cell["\<\
whether symmetry equivalent reflections should be split into separate rows\
\>", "TableText",ExpressionUUID->"f059ae15-e7c1-43a3-9d91-1c303cb71276"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "9fff1964-ac41-4aaf-943e-0c2b819e1188"], "\"\<ToStandardSetting\>\"", 
    ButtonBox["True",
     BaseStyle->"Link",
     ButtonData->"paclet:ref/True"], Cell[TextData[{
     "wheter to apply ",
     StyleBox[ButtonBox["ToStandardSetting",
      BaseStyle->"Link",
      ButtonData->"paclet:MaXrd/ref/ToStandardSetting"], "InlineCode"],
     " on each output reflection"
    }], "TableText",ExpressionUUID->"bbd50e02-0ea9-4cd1-819a-052bc10e6f8b"]}
  }]], "3ColumnTableMod",
 TaggingRules->{"Alphabetized" -> True},
 CellChangeTimes->{{3.684494994425803*^9, 3.6844950550082893`*^9}, {
  3.684670530418324*^9, 3.684670580381*^9}, {3.685768858093302*^9, 
  3.685768932963449*^9}, {3.686659778452766*^9, 3.6866598410914593`*^9}, {
  3.716202170171797*^9, 3.716202236636293*^9}, {3.7162033596830263`*^9, 
  3.7162033675902233`*^9}, {3.7303553039556847`*^9, 3.730355307264719*^9}, {
  3.730356332805682*^9, 3.730356333305838*^9}, {3.7475745706569557`*^9, 
  3.7475745848034678`*^9}, {3.7870445286070213`*^9, 3.787044530645918*^9}},
 CellID->1242238685,ExpressionUUID->"2c1d5aeb-1954-49b5-b7a1-6695bfb2a0c0"],

Cell[TextData[{
 "If ",
 Cell[BoxData[
  ButtonBox["ReflectionList",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/ReflectionList"]], "InlineFormula",
  ExpressionUUID->"49caf819-8758-4e53-89b6-d7ae982d3e12"],
 " is applied to an integer ",
 Cell[BoxData[
  StyleBox["n", "TI"]], "InlineFormula",ExpressionUUID->
  "8a2f1f2c-22a1-454c-856d-a9d0b21d3a47"],
 " (an not a ",
 Cell[BoxData[
  StyleBox["crystal", "TI"]], "InlineFormula",ExpressionUUID->
  "b4544016-1bc2-4e7d-8141-115d866df395"],
 "), the ",
 Cell[BoxData["\<\"Keep\"\>"], "InlineFormula",ExpressionUUID->
  "938b7006-9fc9-4cbd-b2a6-c34c4b981365"],
 " option is not available."
}], "Notes",
 CellChangeTimes->{{3.685769083655792*^9, 3.685769169503883*^9}},
 CellID->827276997,ExpressionUUID->"48cb870e-78fc-492e-a5dc-8e68c6700f55"],

Cell[TextData[{
 "If ",
 Cell[BoxData["\<\"SplitEquivalent\"\>"], "InlineFormula",ExpressionUUID->
  "c59bd191-162f-4104-a106-ddcbe2ee82fd"],
 " is set to ",
 Cell[BoxData[
  ButtonBox["True",
   BaseStyle->"Link",
   ButtonData->"paclet:ref/True"]], "InlineFormula",ExpressionUUID->
  "90e85f7b-685f-4b51-8f1d-f79c885273e5"],
 ", the option ",
 Cell[BoxData["\<\"ToStandardSetting\"\>"], "InlineFormula",ExpressionUUID->
  "9e767809-20fc-4454-ac01-1cff63caa70a"],
 " will be ignored."
}], "Notes",
 CellChangeTimes->{{3.684670487780539*^9, 3.684670520795657*^9}, {
  3.684670585712317*^9, 3.684670598637796*^9}},
 CellID->213451259,ExpressionUUID->"943b836d-4714-4ef3-88e4-2aa0707bade1"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Tutorials", "TutorialsSection",
 CellID->250839057,ExpressionUUID->"62dad55e-7889-46b1-8211-151a717e0e6e"],

Cell["XXXX", "Tutorials",
 CellID->341631938,ExpressionUUID->"3b07b1d9-fbf7-4820-b61e-da762d6d9a88"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Demonstrations", "RelatedDemonstrationsSection",
 CellID->1268215905,ExpressionUUID->"0f9f82e4-5c0c-4810-8c4e-a041187a3676"],

Cell["XXXX", "RelatedDemonstrations",
 CellID->1129518860,ExpressionUUID->"d60d26ce-3cde-481a-a440-75c269b52dd1"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Links", "RelatedLinksSection",
 CellID->1584193535,ExpressionUUID->"94b15e3f-4982-4187-b5cd-294cfe77bd4b"],

Cell["XXXX", "RelatedLinks",
 CellID->1038487239,ExpressionUUID->"a26ad423-664c-4fb5-b025-8cf4e266d0dc"]
}, Open  ]],

Cell[CellGroupData[{

Cell["See Also", "SeeAlsoSection",
 CellID->1255426704,ExpressionUUID->"4da0bc37-4ac4-48ef-97f4-efe11ebf6ed4"],

Cell[TextData[{
 Cell[BoxData[
  ButtonBox["$CrystalData",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/$CrystalData"]], "InlineFormula",
  ExpressionUUID->"56fee1de-2cca-4439-a061-c3f0ebfb5255"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["SystematicAbsentQ",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/SystematicAbsentQ"]], "InlineFormula",
  ExpressionUUID->"1ce21ea9-20f8-46c0-92f1-92e42d5112a1"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["StructureFactor",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/StructureFactor"]], "InlineFormula",
  ExpressionUUID->"8693d8b0-4b2a-4475-b25a-49ff9a8f2282"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["SymmetryEquivalentReflectionsQ",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/SymmetryEquivalentReflectionsQ"]], 
  "InlineFormula",ExpressionUUID->"55588f73-43d5-4bc4-b14e-c18626918166"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["ToStandardSetting",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/ToStandardSetting"]], "InlineFormula",
  ExpressionUUID->"27ec1d0b-883d-4a1d-aa73-24b4411ecf00"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["MergeSymmetryEquivalentReflections",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/MergeSymmetryEquivalentReflections"]], 
  "InlineFormula",ExpressionUUID->"4e5a0895-45ca-4f89-aebb-d13b84bf947c"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["StructureFactorTable",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/StructureFactorTable"]], "InlineFormula",
  ExpressionUUID->"616ba410-cadf-4c9b-b499-1d37c9b1f472"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["ReciprocalSpaceSimulation",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/ReciprocalSpaceSimulation"]], 
  "InlineFormula",ExpressionUUID->"cee2ffd7-eada-4ea9-946a-20fd84baf513"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["GetCrystalMetric",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/GetCrystalMetric"]], "InlineFormula",
  ExpressionUUID->"70a4c568-8f76-4491-bacb-9f2214d643fd"]
}], "SeeAlso",
 CellChangeTimes->{{3.6845523546650763`*^9, 3.6845523966624203`*^9}, {
   3.730106629678975*^9, 3.730106629679222*^9}, 3.730210451560213*^9, {
   3.730358909725152*^9, 3.730358917971319*^9}, {3.7303590069790707`*^9, 
   3.730359009514729*^9}, {3.7379684805563793`*^9, 3.737968480556522*^9}},
 CellID->929782353,ExpressionUUID->"999b7e63-bd49-412d-a660-6a3e31a82ff0"]
}, Open  ]],

Cell[CellGroupData[{

Cell["More About", "MoreAboutSection",
 CellID->38303248,ExpressionUUID->"0e7cc9ad-f844-410d-bf9e-d254b4b5d073"],

Cell["XXXX", "MoreAbout",
 CellID->1665078683,ExpressionUUID->"8b367c05-da71-4eee-a836-d73f0422f35f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[GridBox[{
    {
     StyleBox["Examples", "PrimaryExamplesSection"], 
     ButtonBox[
      RowBox[{
       RowBox[{"More", " ", "Examples"}], " ", "\[RightTriangle]"}],
      BaseStyle->"ExtendedExamplesLink",
      ButtonData:>"ExtendedExamples"]}
   }],
  $Line = 0; Null]], "PrimaryExamplesSection",
 CellID->880084151,ExpressionUUID->"021808be-423b-4cbf-8727-e2f04a44152c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ReflectionList", "[", "1", "]"}]], "Input",
 CellChangeTimes->{{3.71853253858484*^9, 3.718532545671131*^9}},
 CellLabel->"In[1]:=",
 CellID->1920457932,ExpressionUUID->"5fbd48ca-957b-4675-a7b6-d5a13b991e7c"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", 
     RowBox[{"-", "1"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", 
     RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "0", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1", ",", 
     RowBox[{"-", "1"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "0", ",", 
     RowBox[{"-", "1"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", 
     RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", 
     RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", 
     RowBox[{"-", "1"}], ",", 
     RowBox[{"-", "1"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", "0", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", "1", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", "0", ",", 
     RowBox[{"-", "1"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", 
     RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", 
     RowBox[{"-", "1"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", 
     RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", 
     RowBox[{"-", "1"}], ",", 
     RowBox[{"-", "1"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", "1", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", "1", ",", 
     RowBox[{"-", "1"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", 
     RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", 
     RowBox[{"-", "1"}], ",", 
     RowBox[{"-", "1"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.718532543011485*^9, 3.7185325512796307`*^9}, {
   3.718532710332469*^9, 3.7185327258858967`*^9}, 3.7303563952085943`*^9, 
   3.730358632425274*^9},
 CellLabel->"Out[1]=",
 CellID->260514630,ExpressionUUID->"320e0007-65ad-40a3-9059-5cf462e1911f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "7592eae4-07ed-4741-b2c8-c70e24bdfe1f"],
  $Line = 0; Null]], "ExampleDelimiter",
 CellID->1067222544,ExpressionUUID->"675f883b-7313-41de-9cec-69e8d5c4d425"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Short", "[", 
  RowBox[{
   RowBox[{"ReflectionList", "[", "3", "]"}], ",", "5"}], "]"}]], "Input",
 CellChangeTimes->{{3.684495083962286*^9, 3.6844950876889343`*^9}, {
   3.684570402403122*^9, 3.684570406338705*^9}, {3.718519411362183*^9, 
   3.718519411704481*^9}, {3.718519745834835*^9, 3.718519789881898*^9}, 
   3.718519869313508*^9},
 CellLabel->"In[1]:=",
 CellID->935811348,ExpressionUUID->"49f8b424-2733-4496-ac8b-396ebcf3d614"],

Cell[BoxData[
 TagBox[
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"0", ",", "0", ",", "1"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0", ",", 
      RowBox[{"-", "1"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"0", ",", 
      RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "1"}], ",", "0", ",", "0"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0", ",", "2"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"0", ",", "1", ",", "1"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"0", ",", "2", ",", "0"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"1", ",", "0", ",", "1"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"1", ",", "1", ",", "0"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"2", ",", "0", ",", "0"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0", ",", 
      RowBox[{"-", "2"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"0", ",", "1", ",", 
      RowBox[{"-", "1"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"1", ",", "0", ",", 
      RowBox[{"-", "1"}]}], "}"}], ",", 
    RowBox[{"\[LeftSkeleton]", "312", "\[RightSkeleton]"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "2"}], ",", "3", ",", 
      RowBox[{"-", "3"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "3"}], ",", 
      RowBox[{"-", "3"}], ",", "2"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "3"}], ",", 
      RowBox[{"-", "2"}], ",", "3"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "2"}], ",", 
      RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "3"}], ",", 
      RowBox[{"-", "3"}], ",", 
      RowBox[{"-", "2"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "3"}], ",", 
      RowBox[{"-", "2"}], ",", 
      RowBox[{"-", "3"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "2"}], ",", 
      RowBox[{"-", "3"}], ",", 
      RowBox[{"-", "3"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"3", ",", "3", ",", "3"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"3", ",", "3", ",", 
      RowBox[{"-", "3"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"3", ",", 
      RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"3", ",", 
      RowBox[{"-", "3"}], ",", 
      RowBox[{"-", "3"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "3"}], ",", "3", ",", "3"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "3"}], ",", "3", ",", 
      RowBox[{"-", "3"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "3"}], ",", 
      RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "3"}], ",", 
      RowBox[{"-", "3"}], ",", 
      RowBox[{"-", "3"}]}], "}"}]}], "}"}],
  Short[#, 5]& ]], "Output",
 CellChangeTimes->{
  3.684495093413844*^9, {3.684570404153307*^9, 3.6845704104651318`*^9}, 
   3.6845705228579903`*^9, {3.685769193852659*^9, 3.685769204591817*^9}, 
   3.6857708232298098`*^9, 3.6857709210106287`*^9, 3.716203386521399*^9, {
   3.718519407940115*^9, 3.7185194119606123`*^9}, {3.718519741560031*^9, 
   3.718519795610827*^9}, {3.718519869458418*^9, 3.718519874309753*^9}, 
   3.718532509357973*^9, {3.7185325518738003`*^9, 3.7185325554149027`*^9}, {
   3.718532717309051*^9, 3.7185327275151443`*^9}, 3.730356399488867*^9, 
   3.730358633913149*^9},
 CellLabel->"Out[1]//Short=",
 CellID->1568851527,ExpressionUUID->"168ba60c-0099-43cc-9440-6c6d361a8b14"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MemberQ", "[", 
  RowBox[{
   RowBox[{"ReflectionList", "[", "3", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6844950954659557`*^9, 3.684495105648263*^9}, 
   3.68457041282693*^9},
 CellLabel->"In[2]:=",
 CellID->1474675616,ExpressionUUID->"1be2aa9d-604f-40e7-8f2c-97e00d647df0"],

Cell[BoxData["False"], "Output",
 CellChangeTimes->{
  3.6844951059450493`*^9, 3.6845704131731863`*^9, 3.6845705229993067`*^9, {
   3.68576920075952*^9, 3.685769207826611*^9}, 3.6857709229177923`*^9, 
   3.716203388057098*^9, 3.71851979786469*^9, 3.718519875278946*^9, {
   3.718532553341276*^9, 3.718532556002976*^9}, 3.718532728556723*^9, 
   3.730356402077322*^9, 3.730358635348455*^9},
 CellLabel->"Out[2]=",
 CellID->1148914210,ExpressionUUID->"8cc66f7e-7325-431c-bc06-4d004c5ea7c3"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "491516f2-c4ea-4062-911d-2efc22672d7b"],
  $Line = 0; Null]], "ExampleDelimiter",
 CellID->24979595,ExpressionUUID->"bc06512b-fcce-44c6-9606-c312b7c8d238"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ReflectionList", "[", 
  RowBox[{"\"\<SodiumChloride\>\"", ",", "1.23"}], "]"}]], "Input",
 CellLabel->"In[1]:=",
 CellID->1147117202,ExpressionUUID->"032096fb-86b8-4960-85d2-4c6ef9c7a18c"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "2", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "6"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "2", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "2", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "3", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "2", ",", "6"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "4", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "2", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "3", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "3", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "4", ",", "6"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "2", ",", "6"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "4", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "5", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "3", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "4", ",", "6"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "4", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "5", ",", "5"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.718532495094625*^9, 3.718532557474555*^9, 
  3.718532734686545*^9, 3.730356406039899*^9, 3.730358637849963*^9},
 CellLabel->"Out[1]=",
 CellID->1884713987,ExpressionUUID->"241a2f54-c1b9-4603-80d8-f5820983500c"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "19cb7808-06e5-4327-80a8-3803e57ff049"],
  $Line = 0; Null]], "ExampleDelimiter",
 CellID->2099781707,ExpressionUUID->"de4109c6-c37c-415d-a22c-9ba533f74b24"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ReflectionList", "[", 
  RowBox[{"\"\<Silicon\>\"", ",", "0.789", ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"h_", ",", "k_", ",", "l_"}], "}"}], "/;", 
    RowBox[{
     RowBox[{"h", "+", "k"}], "\[Equal]", "l"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.684551887410776*^9, 3.684551904114122*^9}},
 CellLabel->"In[1]:=",
 CellID->1432378398,ExpressionUUID->"ffc26d6b-1c6c-4a3e-b593-6de3a1ec0ae7"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0", ",", "2", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "4", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "2", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "6", ",", "6"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "4", ",", "6"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "8", ",", "8"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "6", ",", "8"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "4", ",", "8"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.684551904513269*^9, 3.684551916951908*^9}, 
   3.685769642872263*^9, 3.685770930544647*^9, {3.716203399535367*^9, 
   3.7162034124088697`*^9}, 3.71853255994243*^9, 3.718532740804613*^9, 
   3.7303564100633574`*^9, 3.730358640684155*^9},
 CellLabel->"Out[1]=",
 CellID->117448137,ExpressionUUID->"b5fa8f20-4761-4037-ab6f-219efa170190"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["More Examples", "ExtendedExamplesSection",
 CellTags->"ExtendedExamples",
 CellID->1854448968,ExpressionUUID->"18bd5b78-d67e-40e6-b37a-9f797f32ba19"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Scope", "ExampleSection",ExpressionUUID->
   "d35a3dba-7ca6-41cb-a57f-a567850dec16"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1293636265,ExpressionUUID->"d2ec0439-4f6b-465c-bda4-27a6fb741134"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Generalizations & Extensions", "ExampleSection",ExpressionUUID->
   "0c03f80d-3564-44d4-8961-e26acc4e1f70"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1020263627,ExpressionUUID->"dfc7aa73-5e73-41fc-bc97-e0ce39364483"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "Options", "ExampleSection",ExpressionUUID->
   "ea64a991-3c2e-4183-901a-aff905040b7b"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2061341341,ExpressionUUID->"1ab9cb97-fa8e-442c-b75e-553b88e114c9"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\"AngleThreshold\"", "ExampleSubsection",ExpressionUUID->
   "4a4c87b4-7ccf-4866-8d80-2958991dca15"],
  $Line = 0; Null]], "ExampleSubsection",
 CellChangeTimes->{{3.747574540534647*^9, 3.747574545045513*^9}},
 CellID->2070559211,ExpressionUUID->"324cbbca-2e3d-435c-86d3-0181118344d6"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"crystal", "=", "\"\<Silicon\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Lambda]", "=", "0.71069"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"ReflectionList", "[", 
  RowBox[{"crystal", ",", "\[Lambda]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.7475746274472733`*^9, 3.747574657529749*^9}},
 CellLabel->"In[1]:=",
 CellID->1690013354,ExpressionUUID->"8690869c-db79-4d51-91a4-3ebc8830d25a"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "2", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "2", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "3", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "8"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "2", ",", "6"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "4", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "2", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "7"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "3", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "3", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "2", ",", "6"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "4", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "9"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "3", ",", "7"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "5", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "3", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "4", ",", "8"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "6", ",", "6"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "2", ",", "8"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "4", ",", "6"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "4", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "3", ",", "9"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "5", ",", "7"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "3", ",", "7"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "5", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "4", ",", "8"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "6", ",", "6"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "4", ",", "6"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "5", ",", "9"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "7", ",", "7"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "3", ",", "9"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "5", ",", "7"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "5", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "8", ",", "8"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "6", ",", "8"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "4", ",", "8"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "6", ",", "6"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "7", ",", "9"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "5", ",", "9"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "7", ",", "7"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "5", ",", "7"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "8", ",", "8"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "6", ",", "8"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"6", ",", "6", ",", "6"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "9", ",", "9"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "7", ",", "9"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "5", ",", "9"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "7", ",", "7"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "8", ",", "8"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"6", ",", "6", ",", "8"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "7", ",", "9"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"7", ",", "7", ",", "7"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"6", ",", "8", ",", "8"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.747574659923368*^9, 3.747574744725009*^9, 
  3.7870481448156424`*^9},
 CellLabel->"Out[3]=",
 CellID->996862721,ExpressionUUID->"5c1bf2e2-0542-47dc-ae1a-fd1897749d83"]
}, Open  ]],

Cell["Let us now impose a threshold:", "ExampleText",
 CellChangeTimes->{{3.747574240499092*^9, 3.747574246563179*^9}},
 CellID->971896805,ExpressionUUID->"a06b4e67-e657-42c2-8e8b-b360dae7d1c6"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"output", "=", 
  RowBox[{"ReflectionList", "[", 
   RowBox[{"crystal", ",", "\[Lambda]", ",", 
    RowBox[{"\"\<AngleThreshold\>\"", "\[Rule]", 
     RowBox[{"15", "\[Degree]"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.747574667420909*^9, 3.747574699618754*^9}, 
   3.7870481494553223`*^9},
 CellLabel->"In[4]:=",
 CellID->1557110950,ExpressionUUID->"21070aeb-cccd-4744-a419-d98f9db91d80"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "2", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "2", ",", "2"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.747574694225114*^9, 3.7475747001729727`*^9}, 
   3.7475747451637793`*^9, 3.787048150458375*^9},
 CellLabel->"Out[4]=",
 CellID->581895362,ExpressionUUID->"ae335c17-4c98-44c4-9b2e-52599f491c0d"]
}, Open  ]],

Cell["We can calculate their Bragg angles to check:", "ExampleText",
 CellChangeTimes->{{3.747574728633563*^9, 3.7475747369337273`*^9}},
 CellID->1147495215,ExpressionUUID->"fceffc8c-746e-4178-8e2f-d644cc95980a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BraggAngle", "[", 
  RowBox[{"crystal", ",", "\[Lambda]", ",", "output"}], "]"}]], "Input",
 CellChangeTimes->{{3.747574704705044*^9, 3.747574719284604*^9}},
 CellLabel->"In[5]:=",
 CellID->1031071660,ExpressionUUID->"c5c17285-cd0f-403e-9a58-96aedbcffe57"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TemplateBox[{
    "6.507247272679031`",RowBox[{"\[InvisibleSpace]", "\"\[Degree]\""}],
     "degrees","\"AngularDegrees\""},
    "QuantityPostfix"], ",", 
   TemplateBox[{
    "10.664939554553499`",RowBox[{"\[InvisibleSpace]", "\"\[Degree]\""}],
     "degrees","\"AngularDegrees\""},
    "QuantityPostfix"], ",", 
   TemplateBox[{
    "12.533376573373166`",RowBox[{"\[InvisibleSpace]", "\"\[Degree]\""}],
     "degrees","\"AngularDegrees\""},
    "QuantityPostfix"], ",", 
   TemplateBox[{
    "13.100380588432008`",RowBox[{"\[InvisibleSpace]", "\"\[Degree]\""}],
     "degrees","\"AngularDegrees\""},
    "QuantityPostfix"]}], "}"}]], "Output",
 CellChangeTimes->{{3.747574713664669*^9, 3.747574745331294*^9}, 
   3.787048155370421*^9},
 CellLabel->"Out[5]=",
 CellID->1047554322,ExpressionUUID->"c879aa7d-6e9f-4703-a779-6e6bc3443420"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\"CustomReflections\"", "ExampleSubsection",ExpressionUUID->
   "afae0e94-cc68-4c4b-ba09-7e421f63780d"],
  $Line = 0; Null]], "ExampleSubsection",
 CellChangeTimes->{{3.684551938602584*^9, 3.684551941714436*^9}},
 CellID->1295379749,ExpressionUUID->"b6f43def-9680-4642-86c9-2d843cfe8e19"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ReflectionList", "[", 
  RowBox[{"\"\<Silicon\>\"", ",", "0.709317", ",", 
   RowBox[{"\"\<CustomReflections\>\"", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"2", ",", "0", ",", "2"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1"}], ",", "3", ",", "1"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"9", ",", "9", ",", "9"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "2"}], ",", 
        RowBox[{"-", "2"}], ",", "0"}], "}"}]}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.684552157287436*^9, 3.6845521810795937`*^9}, {
  3.730356580778343*^9, 3.7303565820157757`*^9}},
 CellLabel->"In[1]:=",
 CellID->2002796734,ExpressionUUID->"7f95e974-b1ac-40b0-964e-742f3ca47de1"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "2", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"9", ",", "9", ",", "9"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.684552181481084*^9, 3.684552240292292*^9, 
  3.685769872200096*^9, 3.6857699206607857`*^9, 3.685770095629682*^9, 
  3.685770953243761*^9, 3.716203419620886*^9, 3.718532706113069*^9, 
  3.718532758774555*^9, 3.730356440534095*^9, 3.730356610420273*^9, 
  3.730358648037936*^9, 3.787048228789975*^9, 3.787049743647732*^9},
 CellLabel->"Out[1]=",
 CellID->1725941063,ExpressionUUID->"5942206a-a3cd-49f9-bad4-1924bbde40c0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "67f4e2c5-b72b-4c54-9c3d-c4a39567ea83"],
  $Line = 0; Null]], "ExampleDelimiter",
 CellID->289702140,ExpressionUUID->"b1f88fc7-7c66-4578-8228-9a9b1bb827b0"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ReflectionList", "[", 
  RowBox[{"\"\<Germanium\>\"", ",", "0.709317", ",", 
   RowBox[{"\"\<CustomReflections\>\"", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"1", ",", "5", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1", ",", "4", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]}]}], "]"}]], "Input",\

 CellChangeTimes->{{3.6845522013806458`*^9, 3.684552203021523*^9}, {
   3.685769914856336*^9, 3.685769915219039*^9}, {3.685770086006296*^9, 
   3.68577008992494*^9}, 3.730356585209695*^9},
 CellLabel->"In[1]:=",
 CellID->678439231,ExpressionUUID->"1c85ad04-201f-4393-a8c4-1fbcb306d4d0"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"1", ",", "3", ",", "5"}], "}"}], "}"}]], "Output",
 CellChangeTimes->{
  3.684552204878085*^9, 3.684552244651779*^9, 3.685769876439032*^9, {
   3.685769916113286*^9, 3.6857699228002577`*^9}, 3.685769964894218*^9, {
   3.68577008743616*^9, 3.6857700906368017`*^9}, 3.685770523479422*^9, {
   3.685770957556321*^9, 3.685770982765555*^9}, 3.716203423053363*^9, 
   3.718532764155629*^9, 3.730356445765992*^9, 3.730356611912215*^9, 
   3.73035864994479*^9, 3.787049745136119*^9},
 CellLabel->"Out[1]=",
 CellID->1970653874,ExpressionUUID->"e2dcb4fd-1a96-450b-ad4e-5724827b676f"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "460da961-5de4-4118-b648-1a0a606fefd7"],
  $Line = 0; Null]], "ExampleDelimiter",
 CellID->1566601292,ExpressionUUID->"2b99c719-bb1c-408b-9ad2-10dddbe5fcc3"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ReflectionList", "[", 
  RowBox[{"\"\<Silicon\>\"", ",", "1.540593", ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"h_", ",", "k_", ",", "l_"}], "}"}], "/;", 
    RowBox[{"h", "\[Equal]", "1"}]}], ",", 
   RowBox[{"\"\<CustomReflections\>\"", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"{", 
      RowBox[{"1", ",", "2", ",", "3"}], "}"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.684552219814361*^9, 3.6845522247888107`*^9}, {
  3.730356590601348*^9, 3.73035659905549*^9}},
 CellLabel->"In[1]:=",
 CellID->1718402424,ExpressionUUID->"4082cd22-f2f2-4af2-975f-6148b2c8699a"],

Cell[BoxData[
 TemplateBox[{
  "ReflectionList","empty","\"No reflections match the conditions.\"",2,1,12,
   26775811996559735324,"Local","MaXrd`ReflectionList"},
  "MessageTemplate2"]], "Message", "MSG",
 CellChangeTimes->{{3.6845522272658243`*^9, 3.684552248592366*^9}, {
   3.685770998659587*^9, 3.685771002090564*^9}, 3.716203426770535*^9, 
   3.7185327661309147`*^9, 3.730356613459408*^9, 3.730358652417569*^9, 
   3.7870497470472813`*^9},
 CellLabel->"During evaluation of In[1]:=",
 CellID->416440671,ExpressionUUID->"b3a42b3c-1dbe-47ce-bde4-250eb10c0105"],

Cell[BoxData[
 RowBox[{"{", "}"}]], "Output",
 CellChangeTimes->{{3.684552227271234*^9, 3.684552248599781*^9}, {
   3.685770998669845*^9, 3.685771002102853*^9}, 3.7162034267786283`*^9, 
   3.718532766136771*^9, 3.730356613465733*^9, 3.730358652423809*^9, 
   3.787049747054285*^9},
 CellLabel->"Out[1]=",
 CellID->469151924,ExpressionUUID->"f6155091-0ec4-4dc1-aaa3-523a88eb0128"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\"HoldIndex\"", "ExampleSubsection",ExpressionUUID->
   "3e5597bf-7d3e-43e2-97ac-ef35352a02bb"],
  $Line = 0; Null]], "ExampleSubsection",
 CellChangeTimes->{{3.71620227441586*^9, 3.716202276578622*^9}},
 CellID->1318294814,ExpressionUUID->"9c9d33f5-b7b7-4cdb-a1cf-b650fe737744"],

Cell[TextData[{
 "The setting should be a rule on the form ",
 Cell[BoxData[
  StyleBox[
   RowBox[{"index", 
    StyleBox["\[Rule]",
     FontSlant->"Plain"], "int"}], "TI"]], "InlineFormula",ExpressionUUID->
  "7c69ed25-b05f-4906-8a8d-b0d448c57d36"],
 ", where ",
 Cell[BoxData[
  RowBox[{
   StyleBox["index", "TI"], 
   StyleBox["\[Element]", "TI",
    FontSlant->"Plain"], 
   RowBox[{
    StyleBox["[", "TI"], 
    StyleBox[
     RowBox[{"\"\<h\>\"", ",", "\"\<k\>\"", ",", "\"\<l\>\""}], "InlineCode"], 
    StyleBox["]", "TI"]}]}]], "InlineFormula",ExpressionUUID->
  "cb88dbcb-ba2d-4093-b951-aa34a7d76335"],
 " and ",
 Cell[BoxData[
  StyleBox["int", "TI"]], "InlineFormula",ExpressionUUID->
  "7f583dbd-d5a1-4815-b397-11b22118c5d1"],
 " is an integer."
}], "ExampleText",
 CellChangeTimes->{{3.716202767209855*^9, 3.716202951467012*^9}},
 CellID->1539431896,ExpressionUUID->"236a9552-a221-4aed-a3b2-17679186102a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ReflectionList", "[", 
   RowBox[{"\"\<Glycyl-L-alanine\>\"", ",", "0.709317", ",", 
    RowBox[{"\"\<HoldIndex\>\"", "\[Rule]", 
     RowBox[{"\"\<k\>\"", "\[Rule]", "14"}]}]}], "]"}], "//", 
  "Short"}]], "Input",
 CellChangeTimes->{{3.716202618632667*^9, 3.716202675935319*^9}, {
  3.716202709469776*^9, 3.716202741899753*^9}, {3.718532874961166*^9, 
  3.7185328791196957`*^9}, {3.718532938232912*^9, 3.718532941510763*^9}, {
  3.718533039165766*^9, 3.71853306168371*^9}, {3.730356623887076*^9, 
  3.730356625598814*^9}, {3.730358661147517*^9, 3.7303586801493797`*^9}},
 CellLabel->"In[1]:=",
 CellID->1236508687,ExpressionUUID->"8a0464e1-1363-441c-8082-69297d2b1091"],

Cell[BoxData[
 TagBox[
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"0", ",", "14", ",", "0"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"0", ",", "14", ",", "1"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"1", ",", "14", ",", "0"}], "}"}], ",", 
    RowBox[{"\[LeftSkeleton]", "195", "\[RightSkeleton]"}], ",", 
    RowBox[{"{", 
     RowBox[{"13", ",", "14", ",", "9"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"14", ",", "14", ",", "8"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"15", ",", "14", ",", "7"}], "}"}]}], "}"}],
  Short]], "Output",
 CellChangeTimes->{{3.716202655617982*^9, 3.7162026704927597`*^9}, {
   3.716202713224998*^9, 3.716202751969838*^9}, {3.7185328598863153`*^9, 
   3.7185328795505133`*^9}, 3.718532959748472*^9, {3.718533039912683*^9, 
   3.718533062985211*^9}, {3.7303586590094976`*^9, 3.73035868334513*^9}},
 CellLabel->"Out[1]//Short=",
 CellID->562232888,ExpressionUUID->"e590ded5-c79e-49da-887b-0a87de37d1cb"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\"Keep\"", "ExampleSubsection",ExpressionUUID->
   "22a25fcf-6344-4d9d-836a-41c7cf97b831"],
  $Line = 0; Null]], "ExampleSubsection",
 CellChangeTimes->{{3.716203053462681*^9, 3.7162030543459473`*^9}},
 CellID->167046117,ExpressionUUID->"7bb35839-d49b-4e6a-99e4-6ec68740af5a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ReflectionList", "[", 
  RowBox[{"\"\<Silver\>\"", ",", "1.540593", ",", 
   RowBox[{"\"\<Keep\>\"", "\[Rule]", "7"}]}], "]"}]], "Input",
 CellChangeTimes->{3.7303586990750103`*^9},
 CellLabel->"In[1]:=",
 CellID->922627066,ExpressionUUID->"2ce8ab53-a559-485b-aa5a-8cc1b4f8acfd"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "2", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "2", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "2", ",", "2"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.716203062979854*^9, 3.716203437415288*^9, 3.718533070750533*^9, {
   3.730358692022629*^9, 3.730358700815501*^9}},
 CellLabel->"Out[1]=",
 CellID->2023463518,ExpressionUUID->"7865d9d1-48de-4401-93da-71e727c33fd4"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\"Limit\"", "ExampleSubsection",ExpressionUUID->
   "83ad6bed-8a94-4994-9885-806b776e2e5d"],
  $Line = 0; Null]], "ExampleSubsection",
 CellChangeTimes->{{3.684551938602584*^9, 3.684551941714436*^9}, {
  3.686659913124342*^9, 3.686659913632337*^9}},
 CellID->1850650657,ExpressionUUID->"f61e7b13-916f-4591-bb18-87e82baf1916"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ReflectionList", "[", 
  RowBox[{"\"\<Silicon\>\"", ",", "1.540593", ",", 
   RowBox[{"\"\<Limit\>\"", "\[Rule]", "3"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6866599207142277`*^9, 3.686659944165351*^9}, 
   3.730358708922471*^9},
 CellLabel->"In[1]:=",
 CellID->1879932698,ExpressionUUID->"62785af7-f0ae-4705-aaa4-7625a41c615e"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "2", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "2", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "3", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "3", ",", "3"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.686659933429414*^9, 3.686659953086828*^9}, 
   3.71620344079737*^9, 3.7185330773799334`*^9, 3.730358710363961*^9},
 CellLabel->"Out[1]=",
 CellID->1000416421,ExpressionUUID->"cfe5d3f7-4e53-4372-b482-eb0d73ae4989"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\"ShowProgress\"", "ExampleSubsection",ExpressionUUID->
   "34312ef6-353f-4af0-aab3-431643235128"],
  $Line = 0; Null]], "ExampleSubsection",
 CellChangeTimes->{{3.684551938602584*^9, 3.684551941714436*^9}, {
  3.686659913124342*^9, 3.686659913632337*^9}, {3.68666003942527*^9, 
  3.686660041104851*^9}, {3.730358739386853*^9, 3.730358739905513*^9}},
 CellID->1944659239,ExpressionUUID->"ec7780e0-6a2b-44fe-9b98-59d2e5382e67"],

Cell["\<\
This option controls whether to display a progress bar along with a \
description of the current stage of the function.\
\>", "ExampleText",
 CellChangeTimes->{{3.6866600503323174`*^9, 3.6866600870236263`*^9}},
 CellID->1410560420,ExpressionUUID->"a02f9fe6-6453-458b-933f-45db5d970f3d"],

Cell[BoxData[
 GraphicsBox[
  TagBox[RasterBox[CompressedData["
1:eJztnD2srMYVx8lHkTJl2lSRIpkySUuZCslROhpbMVEaB9mRIqpISPmgJBXd
VlRUVFQ0W9Fg69GgyCgisjcFzqNAkZBCnv45MwO77N5ddu+++77i85N47+5y
mTlnvs7HDPeHH/72ffvbmqZ9+j365/0Pfm988skH7i++Tx9++fGnv/n1xx/9
6ucf/+6jX3/0yc8+/A59+QO6/v0tTfsu/Q+GYRiGYRiGYRiGYRiGYRiGYRiG
YRiGYRiGYRiGYRiGYRiGYRiGYRiGYRiGYRiGYRjmnaVvShR1d8+TKPMcTT8+
uUyvgvv1vLtGVHmB3fAaq3wjdTIMwzC3MPY71FWNuq5RVRWatn/C0gdEhgbN
3V78jb4MIf5klGaGOKp5KOT3bv46beRD6siWcoTFmhzX9TymR2jS72sWinub
u8+lXP5CrjVZ69iR98ywOF/c3A90WWF5c52vipvkea10KIoa74Z3+Sr4puvP
MG8/1WQDNE2Hoav103BjPNWK3dc58mq9tHbrUb3BsT0nG1lmW9RvPD7fwaM2
Ccr1oPQWPZeMbQZdM1DerV4Dh57PjxptXdYmdWF4+QWBBvRDh8zTofvnbf75
Ol8RN8nzGhkLOUeKNz0c3xSvQf///Bf4Y/ocP/X/gR/94e983Xl9/vnnfL3D
12effYZnz57hyy+/xIsXLx45iwaEZMf9yQaMbQFbxERxLT93VQp7svNiPvtp
tXi0RuiY0z0DtkXXZoqlhlKWY5gmvLg6qXNEmfgwqVzdsOE5OjT9EJ83qSfr
Mk0bSX2wTfJ73YDjujAneYK0XpTbIQ0cspMkvxsg9G362US6u7wIjbsMFpUp
fBk7UnIOVUTPCf/GwKb8J0KKvXXbPtSZLepc03O1fQpZnmFN9w0HefuYxXJA
7Pk4Nt39qqx94cPwqf5O6SzayU3qo1LLwFixn+fqvESPyDZku+iGR35ZDc/Q
1WfdQUVl7LJAyjC3zybfPSjlVB7VNyR3JORu4IoxpJuIqnn0jChi71Auteu2
OQhcp4c6dZJHtza45p60ZYZo46l8URgjjiPEabmPVdsyWcwRg8bk6Xg/z9jm
8GhMaCS/63uwRPvYkZTn4ryj8eboqh0tU1c5l6X/PTTY7Mcc3fNizMO/jl1Z
luVG2Kbhvh3mtrvUH9f0X6vzMfyJbPmP//wvvBe8wHt/BV93Xs+fP+frHb++
/vprfPHFF/jqq68eOYt6BPpxDrWJKWY3yL7KGFKDE+XoxxG7PJLz1cvEPO8Q
iByz7iIra1R0zxBrZFDsy23qEhtbe2Af5pxAkOQoso1aQ4yDPRd7AFW5pVjw
JLc77BAL26/ZyKoG+UaU42K2Altf3Yspro8DVYcTFbgSWSNxVL6/6XvURYlu
6Kkssc76aMYeG5kbV3VuQ4t+9tAunj+v55X2me05rcX1roRvPGynx7Muq7Dn
pr8le2fLdT1Mc+xO8h/Fqj1/HF0VK99q8mF220DtB2xV3na33SCIt9h1LfWl
dSZHc0aesSU/YW4rGpPVVvpT8zippW4mkrLFOFJ8H1hyX0P6INTmog82dA90
T7aPHlzNRTVZCMe2lK1yXLiuAzfI5Lgam1h+b4cZ6dGhSpWObvbQNzkpFa4Y
D84G2zyDZyq7HRUk2+q8I19Y2mX6nBRoyJcQOoWl9AKkP6dZIepuwNCW8IRP
4KSyvce+xTZyJrtrIclzmic+ssnfudQfa/pfq/MxiLicbTnbc74ONl3E6Y/j
oT0fSrEm+XiWqLnv+CEC30cQTHGPyNn2ufw5PRg2dMUG/tV4T9VnJ4f1rs99
ua4er+VT3uBkr1aUt392LGkt06f8byPt/6Y+rCKJTXHNDRvUws5pOsVp/Vbt
D5cdCvINLBkD9lION5sUlTZBf5BzfqDntfaR5RjIJ2djR22t+xdy4TezLuty
TzpuzpfwlPZckLlqbRfUEdkEM5rW+REV+XKWoe1lWvp0a/Ict/VynKj8hLBV
QRjA9wMErqH6VJ7DUPsRmmHD9XyEYYhNUt5od0rZX6f55krYPZJ76TOKsaOZ
m1U/spdzbOEXUl+J/ZeCHmrW5h3m+RlM5S/075W/otkewkA8F8Kd/Lt5Wgxy
DNgyP3LMtf44r/8tdd4K23O253y9vD1X68Fh5uaeONuVoZQ+OsVxSYI4Enm2
BGmaIhfnuKW9emjXTrlkz93tqf9was8fyiUofPPw3WwT5cedjHfCfTJ4RGTO
6/gVhhKWyJMGznR+wIet60hk0vBEjqM6V/S81j4n5QxFcHlv+2bWZZU2xHDh
2Sof0Z4pYT3f/nhU/Ep2oKtl/wRlv/hexOoVun7ArgjP+HTn5RH2Ug/K6dOw
0HmOFX0kSYxIjNkkpTG7nc7kizMZCaJNCM/z4IhcN8m2veXYw9SWxYkdLAJ9
4aMc5NOseNWeK7vqYO9WyfGi+mp13mHqx31bLfp8sq3uJkYSi+fof3ouozYe
9vUGcm/rVLar/XFB/1vqvBXOt7M95+tgy+/Lt6uYxcsaDDIfp3J5m6rHWKs8
n8wBijnfNUgCd9onnvKFbowdzf++rRBahxhi7DtaFzqKz2htc1P5c9vJDCVS
kd+mtSxvOvS7Ap7MS4vctnwSfUff0/rv0zrlpLX83A3i5kDlGXBTtQqKvW8Z
A0/5wiIw1Z4xrYGBo+Ky4Kaz2KPKuYu4Nc/ItmsyP9FO7ePK/On5Oi/reaV9
ZDn6vhxxVk2n51/uVbA1WUfUVIcp9s9JM1/mRCMpm/zdoVd6eAc9uv4pXkwb
EFlzvHfIbav41ELeihxtJfcr5BgYxqvyyP0g+t1a2h21n+5NOss9F91D1aly
2noL33FUG0w5k800ntGm+7F+lenZhGzqQPMg3Xjwk2qf8xDnFESNXZ3KfRSV
21ljzhW4ZAM305gz5fsO6/NO7HN7cp9JzRdVjupzNebMYKvs8NijTEM4XiI/
j8Mgx4DIC9QdtW/b7f2Qa/1xSf9rdT6G+TzcT/7C5+H4PNw393qZ83AyX6gt
cmy0poTbQzK2jL2j+7rpIqunGGun9i4P+TkXuQyE+sMarp3J3/WVsuFzmfO5
erG3PO0rnz4r7s3vXAmbnbWtjL+P84I98siHZZpwg43ck7z13Sp1xt6m1Um9
ezbHhPX+/L+Jcpj3p+c61/Vca59wLsfcoJ32S+U+bHzNDlxmTda/pcpPm9/9
Shx9+l0bFS3ZZWhe7q+XpC/Caf93mRHYITAPdVlkc41FnWvyjO12sn9qLMw6
F6rRyRbpR89ZXqTic5mHORlX5G/dpuOIzF/IpFuIcqVPlRzPEctPzuY+HtCR
3fRsmKaDUJ43O+RSLs67xfywomo6L6D0F88OTXaio4FA2t3FeFjcO+SP1vtj
Tf/LdTIM89YxDujInx8u7If1FDv1d8RyMg5/ZX+bpFV5h5vfXx9Jx0Os+pSv
yd3bPv9PLGPBJfePgXG1Tce+l/dP6xwGlasYxP1LA3qtVnp+OPeceL9O6nLf
wBmb5MS+4uq8WymNZLlPv2v9cVH/l6iTYRjmIQNiexEn6B7qb7YZZd5mhvIo
FyVy1mwNGYZhFEMn3nUrUdW7l9yLZphXzYi2qVCWT/13GRmGYRiGYRiGYRiG
YRiGYRiGYRiGYRiGedv5H5LNp0I=
    "], {{0, 24}, {500, 0}}, {0, 255},
    ColorFunction->RGBColor],
   BoxForm`ImageTag["Byte", ColorSpace -> ColorProfileData[CompressedData["
1:eJyVeQdUFE3Tbs9GWJYl55yT5AySc84ZgYVdclwyqESRoCIIKAIqqCCoYCCJ
qIggooigAgZEgoGkggqKgPxD0Pf73v+ee8/tc7rn2Zrq6qe7qnumdgR8I+z9
EQCAaCq4sSfG61EoxEQHeviHU3h0UEA4mWQWHkMOIFPUfCFYyMwFN4CLmRgZ
GYqAtcLCYyj2Jvr8rm7u/NhxQA2YAQ1QBIpEv+hIPVtby03tP9f/LsvDYNMg
eCa9aet/3/+/FgYSOdoPAMgWxr6kaL8wGDcCgGL3i6TEAIDug+VC8TGRm3hh
kzYFJggABrWJA7Yx+yb23ca7tnQc7Q1grAsAFZ5IpAQAQNjkzR/nFwDbIcAc
MYzhpKBwWDUVxtp+gUQSAJwdsM6usLCITTwPY3Hf/7AT8F82ff/aJBID/uLt
uWwVKsOg6MhQYuL/53L8v0tYaOyfMQThig+kmNpvzhletwshERabGA/j9nBf
axsYM8L4QRBpS38TvwqMNXXa0Z/3izaA1wywAoAAJKKhBYy5YcwaG+Kkt4MV
iJStvrA+wjooxsxxB/tSIux37CPiwkOtLXfsZAeSzf7gU+RoI4c/Ov5BxmYw
hiMN0ZgU6OiyzRPRFRfkbA1jAowHokMcLHb6jiUFGlj/0aHE2m9yFobxd3+K
sf22DpI9LPrPvJAyfsStseBYQOrGBDqabvdFupKjXS3/cCCRDY22OSBJ5HCn
HW5IOLr07Xf6ZkWG2u7oI0+RQ03st9cZeSU6zuFP36cxcIBtrwNyMphobrsz
1nJkjK3jNjcUAlgCA2AI+EEsXH1BBAgGQf3zLfPwr+07xoAIKCAAkIH0juRP
D5etO+Fw6wCSwCcYkUH03376W3fJIA6Wr/+VbrfSwH/rbtxWjxDwAcZhKE6U
NkoTZQm3unBVQKmh1P/046f7MyrGCGOIMcUYYyT+8vCDWYfClQKC/g8yC/hK
hme3ySX8zxz+sYf+gB5ET6KH0OPol8AZvNuysqPlHZRO+RdzfmAFxmFrxjuz
84VtzvzRQYnCrJVR+igtmD/MHcWK4gTSKCV4JnooHXhuyrD0PxnG/uX2z1r+
e7xN1v85nx05QZKgvMPC969nDP5q/duKwX+sEQm+WvxbE5mNvI7sQd5F9iLb
kS2AH3kH2YrsQ97axH8j4d1WJPwZzX6LWwhsJ+iPjtxFuRm5tX+NTdwZf3O9
omPICTGbm8EgIjKREhQQGMOvB5/GZH6zcD+ZXfwKcvIqAGye7dtHxzf7rTMb
Yn3yj4w8DcBuOL6pB/6RBR8DoK4bALbcf2SiHgBwwOfs1ad+sZS4bdnmcQzQ
AAfo4F3BAXiBEBCH56MAVIAm0AVGwBzYAEfgBrzgFQ8EYTDneLAXpIEskAeO
gmJwEpwGZ8EFcBlcAy2gHdwF98EjMACGwGs4Lt6DObAAlsEqBEFYiBZigjgg
PkgEkoIUIDVIGzKCLCF7yA3ygQKgcCgW2gtlQHlQIXQSqoRqoavQDegu1AsN
Qi+hCWgG+gr9QiAReAQzggchipBFqCH0EBYIR8QeRAAiCpGEyEQcQZxAVCEu
IZoRdxGPEEOIccQcYgkJkDRIVqQAUhqphjRA2iDdkf5ICnI/MhdZgqxC1iPb
YD8/Q44j55ErKAyKCcWPkoZj0xTlhPJDRaH2ow6hTqIuoJpRXahnqAnUAuo3
mhbNjZZCa6DN0K7oAHQ8Ogtdgq5GN6G74X3zHr2MwWBYMWIYVXhfumGCMcmY
Q5gKTAOmAzOImcIsYbFYDqwUVgtrgyViY7BZ2FLsJewd7FPse+xPKhoqPioF
KmMqd6pwqnSqEqo6qttUT6k+Uq1S01OLUGtQ21CTqBOp86nPUbdRP6F+T72K
Y8CJ4bRwjrhgXBruBK4e140bxX2joaERpFGnsaMJokmlOUFzheYBzQTNCp4R
L4k3wHviY/FH8DX4DvxL/DdaWlpRWl1ad9oY2iO0tbT3aMdofxKYCDIEMwKJ
kEIoIzQTnhI+01HTidDp0XnRJdGV0F2ne0I3T09NL0pvQE+k309fRn+DfoR+
iYGJQZ7BhiGM4RBDHUMvwzQjllGU0YiRxJjJeJbxHuMUE5JJiMmAyY8pg+kc
UzfTe2YMsxizGXMwcx7zZeZ+5gUWRhYlFmeWBJYyllss46xIVlFWM9ZQ1nzW
a6zDrL/YeNj02MhsOWz1bE/ZfrBzseuyk9lz2RvYh9h/cfBzGHGEcBRwtHC8
4URxSnLaccZznuLs5pznYubS5PLjyuW6xvWKG8EtyW3Pncx9lruPe4mHl8eE
J5KnlOcezzwvK68ubzBvEe9t3hk+Jj5tviC+Ir47fLP8LPx6/KH8J/i7+BcE
uAVMBWIFKgX6BVYFxQSdBNMFGwTfCOGE1IT8hYqEOoUWhPmErYT3Cl8UfiVC
LaImEihyXKRH5IeomKiL6EHRFtFpMXYxM7EksYtio+K04jriUeJV4s8lMBJq
EiESFRIDkghJZclAyTLJJ1IIKRWpIKkKqcFd6F3qu8J3Ve0akcZL60nHSV+U
npBhlbGUSZdpkfksKyzrLlsg2yP7W05ZLlTunNxreUZ5c/l0+Tb5rwqSCn4K
ZQrPFWkVjRVTFFsVF5WklMhKp5ReKDMpWykfVO5UXldRVaGo1KvMqAqr+qiW
q46oMavZqh1Se6COVtdXT1FvV1/RUNGI0bim8UVTWjNEs05zerfYbvLuc7un
tAS1iFqVWuPa/No+2me0x3UEdIg6VTqTukK6JN1q3Y96EnrBepf0PuvL6VP0
m/R/GGgY7DPoMEQamhjmGvYbMRo5GZ00GjMWNA4wvmi8YKJskmzSYYo2tTAt
MB0x4zHzM6s1WzBXNd9n3mWBt3CwOGkxaSlpSbFss0JYmVsdsxq1FrEOt26x
ATZmNsds3tiK2UbZ3rTD2Nnaldl9sJe332vf48Dk4O1Q57DsqO+Y7/jaSdwp
1qnTmc7Z07nW+YeLoUuhy7irrOs+10dunG5Bbq3uWHdn92r3JQ8jj2KP957K
nlmew3vE9iTs6fXi9Ar1uuVN5030vu6D9nHxqfNZI9oQq4hLvma+5b4LfgZ+
x/3mSLqkItIMWYtcSP7or+Vf6D8doBVwLGAmUCewJHA+yCDoZNBisGnw6eAf
ITYhNSEboS6hDWFUYT5hN8IZw0PCuyJ4IxIiBiOlIrMix6M0ooqjFigWlOpo
KHpPdGsMM/ya0xcrHnsgdiJOO64s7me8c/z1BIaE8IS+RMnEnMSPScZJ55NR
yX7JnXsF9qbtndint69yP7Tfd39nilBKZsr7VJPUC2m4tJC0x+ly6YXp3zNc
MtoyeTJTM6cOmBy4mEXIomSNHNQ8eDoblR2U3Z+jmFOa8zuXlPswTy6vJG/t
kN+hh4flD584vHHE/0h/vkr+qaOYo+FHhwt0Ci4UMhQmFU4dszrWXMRflFv0
vdi7uLdEqeT0cdzx2OPjJyxPtJYKlx4tXTsZeHKoTL+soZy7PKf8RwWp4ukp
3VP1p3lO553+dSbozItKk8rmKtGqkrOYs3FnP5xzPtdzXu18bTVndV71ek14
zfgF+wtdtaq1tXXcdfkXERdjL85c8rw0cNnwcmu9dH1lA2tD3hVwJfbK7FWf
q8PXLK51Xle7Xt8o0ljexNSU2ww1JzYvtAS2jLe6tQ7eML/R2abZ1nRT5mZN
u0B72S2WW/m3cbczb2/cSbqz1BHZMX834O5Up3fn63uu95532XX1d1t0P7hv
fP9ej17PnQdaD9p7NXpvPFR72PJI5VFzn3Jf02Plx039Kv3NT1SftA6oD7QN
7h68/VTn6d1nhs/uPzd7/mjIemhw2Gn4xYjnyPgL0ovpl6EvF1/FvVp9nTqK
Hs19Q/+mZIx7rOqtxNuGcZXxWxOGE32TDpOvp/ym5t5Fv1t7n/mB9kPJR76P
tdMK0+0zxjMDsx6z7+ci51bnsz4xfCr/LP658Yvul74F14X3i5TFja+HvnF8
q/mu9L1zyXZpbDlsefVH7k+OnxdW1FZ6frn8+rgav4ZdO7Eusd722+L36EbY
xkYkkULcehVAwhXh7w/A1xoAaN0AYBoAAEfYzr12ChLaTDkAcIaMEHpINRQ7
GoehwspRuVFn4O7gMbREQgs9jiGU8SGzMks5G2AP4ejnUuE+yjPHp8ufLzAo
hBNWF3ETDRELE/eU0JfkkVyUur+rVDpERkuWVvatXIN8qoKdooDiJ6UbygdU
7FS5Vd+r1asnaOhp4jSf7S7XImnv0v6q06K7V09fH6//1uC2YZ1RhXGByX5T
opmOObv5okWfZb1VhXWlTbvtlD3agcOR04neGem85rLqBtypPQietHtQe5a8
Jr0HfDqI132r/UpJueRE/4AAx0D9IKVgyRCBUI4wunBk+PeIyciBqJuUc9FH
YlJis+KaElCJ5KSOvWCf6H6NFLNUj7TY9CMZxZnJB5QOTGXlH7TNFsmhyQV5
iEMMh8WPaOdbH3UpcC90P+Za5FzsWGJ33PqERanJSf0y7XL1CsVT0qclz8hV
WlRlnB0/b1Z9qWaulqFO5KL8Jc3LhvVWDS5XvK8GXou8Ht+4vym9+UBLdmve
jfy24pvl7dW3Gm933xnpGL873Nlwz7+LvetBd8n9+B7/B3t6XR7aPbLoM3ls
2u/4JGrgzODLZzTPZYcMhs1GjF6ovRR5RXi18np69MWbu2Nn32aMB0w4TVpP
Wb2zeW/zwfyj+jTb9PhM7qzS7PjchfmkT6afqT7XfjH5MrVwdjHhq9c3m+9W
S8HLnT8P/mpZN9zY2PG/PBKFnEGNo6cwC1RIahVcIE05fpwgSRdPf5+RgymR
+TmrAls6+xtOZa4s7gFeTj5X/gKBdsFRoSXhZZFZ0cdiZ8UpEtqSVJLPpU7v
CpZWlv4tc1/2iJyLPJ/8R4V6xTglLWVIuVslV9VGjUltWL1Uw0OTR3MUjgJP
bQ7tEZ3juh56onqr+kMGVw0PGZGNd5swmHwwbTcrNo+zIFv6WgVaR9iE2fra
2dhrOkg6cjkRnBHOyy4fXYfd7rnXe5R55u5J8grydvUxJMr6svtBfrOkIXKX
f1NAdWBJUGZwRIhbqG6YWDgtHAkTkWNR36MFYrxjS+Puxr9ImEqcT1rZS7OP
d794Cn8qJvVtWlN6fgYl0+uAU5brwaDsjJyK3Mt5TYeaDzceuZp/+WhtwfnC
M8fKioqL80tyjqefSCyNOBlQFlSeWnHntMSZC1ViZwvPPTu/UkO4wFkrVCcJ
x4HqZe16wwarK25XQ69lXT/beLtpsHmsZbr1WxvyJlu71C3N27p3VDsE7iLu
Tnb23Gvqqukuu3+058CDpF7Kw5hHOX3t/axP9g28ecr5TOe545D/cOrI+RdP
Xn5/zTgq/cZyLPLt8fGbE08nx6Ym3819QMPeT5sZnGOYl/uk/Fn0C92Xnwsf
Fke+Pvx243vlUsqy8w+xH8s/21eSfmmu4tcM12d2/C8DzSEqkF4oCTQWvYiZ
wc5STVIv0uDwIrR6BHe6NPpLDIOMG8wiLEaswWwH2E9zNHJ2cz3gvs9zk7eS
L4Ffn/+XwDlBC8E5oWxhMeFOES+RFdEiMTmxh+IBEliJGklTyY9SWbvEd3VL
+8kAmQrZ3bIv5GLht5sGBUuFacUMJV6lVmV75XmVA6p8qi3wW8u0eooGq8ZF
TT3Np7v9dn/WStbGapfpKOkM6ybp8eq16tvovzQINNgwrDKyNaY2vmey11TJ
dNasytzTgt1i2LLYysGazrrXJsNW0/a7XYN9iIOYwzvHSqc9zhzOz13yXU1d
N9ya3EM9hD3eeJbssd6z7FXkLeLd6KPn84qY4Cvo+wI+RwLJJv6qAeqBZkHE
4LAQYqhOGH3YaPj5iLBI5ci1qHuU3GjbGJaY17Gn40jxovEfEk4lGiWOJoUm
Myc/23tz3+39XSn3Um+k1aaXZGRkRhzwyDI6KJmNzn6eU5rrniect3po/PDj
IzfyzxzdX+BRqHGM89hK0XDxtZLjxw+fKCytPHm97H75i4rZU6tnaCv5qxTP
mp7zPB9Rvb8m58Kh2tQ64kXVS4RLXy9/ql+5gr/Ke03hum1jclNj889W9RuR
baU3r7S33rp5u/fO0l2TzhtdDt1LPSW9ig+f9x3u9xkwe6r3XH849CVhdG6y
f3bp+8qm/7f/g9ssGDg7PZYGZ6hZADjpAFDQBeeZQ3DeiQPAlhYAR3WAEPUH
CHwfgDQm/j4/IPhpgwE0gAGwAz4gBuSABpwZ2wB34A+i4ewyH5wC9eA2eAIm
wHc4c+SG5CETyBuKhwqgS9AD6AMCgxBHWCKiERVwnrcB53VxyBvI3ygT1DHU
JFoRnY1+i9HAlGJW4QzrIZUqVQ01F3UBjgaXQ4OjOYrnxNfQKtG2E7QIbXRq
dDfpTelfM8Qw0jNeZjJkGmR2ZB5ksWF5yurN+pOtlF2LfYxjHycXZxuXFzc1
dztPHK8S7ze+a/wUAWWBNcEeoRLhQJHdogTRcbHr4tkSvpJ6UqK7CLtWpT/L
vJMdkmuST1aQVxhTzFZSVvqi3KpSqJqoRlK31JDTZNtN0JLRLtOV0jus32vw
xYjKmMWEw5TbTNhcycLaMsrqhHWXzVc7IXsXhyOOPc4oF0PXLLc+D1ZP3z11
Xu98MEQGX4zvkt970ih5NoAu0CKoOPhj6O6wovDPkeZRddH4mKjYV/HGCa1J
0snV+/j3l6WyphVk4DLTDiwdDM6ey807FHakqYDhGGfRp5LaE94nWcsGKg6f
NjmzVJV/jvl8dvXyhZDarxePXjZqYLiyeO1D43TzXOvHtqn2xTtsdw3ueXX7
9Dj06jySfSzxRGUw/NnPEdQr6tHTb5kmbr8nTO+d0/vU8GX1q8p342Xcj8M/
H65M/3q/+nKtcf3ob98Nua3zY9P/WIAHjIADCABJoAi0gClwBD4gDCSDHFAK
asEN8Ai8AQsQGuKE5La8nwgVQVegfugTgg6hiHBHZCCuId4j+ZDeyHPIeZQK
KhM1hJZAp6FHYd+XYQE2EDtEZUTVSi1LXYeTwF2iUaK5g7fFT9EmEKgJxXQC
dFfg/PU1QzwjK2MLkzPTJ+Z9LDiWE6zSrA/ZItjZ2Ds4gjiZOTu4IriFuUd5
Snld+dj5XvJXCJAE5YSA0HPhiyKZop5iSnAuNyvRJ3kdforlS2fI7JWNkfOT
11XAK/Qr5ipZKLMpL6q8VO1Ra1av0jikmbQ7TitHu1Xnh56iPskgz7DaqNn4
pslN01tmveYTlggrSWtnmwO2LXbzDsKO3k4VzmOugm7B7s2e2D0uXie9u30G
iZ2+tX7ZpCCyvb9pgFtgelBHCG2ob1h7BGdkUtSbaP2Y2ji6+MiER0kCyXF7
B/Yrp5xL40ovysQdSM6azybmTOYlHZbLRxx9U3i1KK5E6fjX0qtlsRUap36d
qa5SOFtx7mO1WE3ghSt1bBfLL2vVf7pSek39en8TsXm1tarNrh3cqr1j2bHY
ebrL977GA4GHqEePH8c9wQzkPsU/qxryHrF6Gfq65s3Hcb5J23dpH27PsM0d
/Sy68Phb0fKhFbNVhbVT6+9+L+74HwWoAT28+wWAFFABBsAWeMG+3wfv/ErQ
CB6AMXjf4yFRSBfaAyVDZdAtaAJBDXudiChGDCBZkGTkLRQ3KhU1i3ZDP8YY
YG5htbB3qSyp3lBH4+hwV2ic8Uh8C20UQZ7wk66bvpQhltGNyYzZnMWO1ZxN
lV2CQ5nTmyuRO4bHl9eRz5rfSsBK0FLISthexFs0WuyweJ3EA8mZXbTSqjL+
siflhhU4FUlKDcqrqrZqjzVydrtpo3WO6q7pWxhkwB5sMW43uW3ab7ZqYWHZ
bC1jc8lOxr7Z0cBp2CXMDed+ydPZi8GHxteb5EF+F6AZmBf0IcQ+tC/cKuJp
lAdlOiY5jjd+LPF+cse+ihSn1F/plZnOWXwHF3Ju5R067J9vUsBR+KjIv3j5
eEYpw8mqcpWKx6f9K6Gq8nNq54dqYmu56h5cSqk3uSJ7zbgxpbmqNb/NrZ3t
1sidsrtu97Bd5+8r9dzsNXo40pfQLzuAHFx4Nj00OFLwUuxVxevfb4zGct8+
mqCbdJo6827mg/zHkOkzMw9mZ+fRn7g/y30xXHBZJH4lfbP9Lvh9aenwMvdy
3Q/1Hyd/rPx0+dm8wrpCWWleWf2l+yvzV+8qYdVh9fjqwBrVmu5awtrVtZl1
gXW39cL1h+vrv+V/k34f//3o9+8N+Q3yxomNvk3/R/srKmw9PiC8PgDosY2N
b6IAYAsBWC/Y2Fit2thYPwsnG6MAdIRuf9fZetbQA1C++S0JPGr9lfrv7yv/
AzMg1Ek=
      "], "RGB", "XYZ"], Interleaving -> True],
   Selectable->False],
  BaseStyle->"ImageGraphics",
  ImageSizeRaw->{500, 24},
  PlotRange->{{0, 500}, {0, 24}}]], "Input",
 CellID->1791825034,ExpressionUUID->"721e50d4-190a-4728-a735-f34746d0b8e8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\"SplitEquivalent\"", "ExampleSubsection",ExpressionUUID->
   "378b7414-b56e-4c81-b018-7042618d2f9a"],
  $Line = 0; Null]], "ExampleSubsection",
 CellChangeTimes->{{3.6845519309081182`*^9, 3.684551934746661*^9}},
 CellID->1757724783,ExpressionUUID->"adc55b98-7149-44d8-9f5f-08a4144847f8"],

Cell[TextData[{
 "Setting this option to ",
 Cell[BoxData[
  ButtonBox["True",
   BaseStyle->"Link",
   ButtonData->"paclet:ref/True"]], "InlineFormula",ExpressionUUID->
  "6e72ec11-ae24-4547-9981-d14be3f4c9ce"],
 " will separate the symmetry equivalent reflections."
}], "ExampleText",
 CellChangeTimes->{{3.684551955441299*^9, 3.684551979389674*^9}},
 CellID->93225219,ExpressionUUID->"c160ee37-72e9-4be3-8e5c-ae36776ff6d3"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ReflectionList", "[", 
  RowBox[{"\"\<Silicon\>\"", ",", "0.709317", ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"h_", ",", "k_", ",", "l_"}], "}"}], "/;", 
    RowBox[{
     RowBox[{"h", "+", "k"}], "\[Equal]", "l"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.684551984854085*^9, 3.684552003141831*^9}, {
  3.7303587697850533`*^9, 3.730358778729314*^9}},
 CellLabel->"In[1]:=",
 CellID->1372666250,ExpressionUUID->"5e753c43-cad4-43a5-909d-ba1dc207d51c"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0", ",", "2", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "4", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "2", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "6", ",", "6"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "4", ",", "6"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "8", ",", "8"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "6", ",", "8"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "4", ",", "8"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.6845520036495447`*^9, 3.684552143156746*^9, {3.68576965321345*^9, 
   3.685769659061535*^9}, 3.6857709387114563`*^9, {3.716203454610827*^9, 
   3.716203461361156*^9}, 3.71853308399298*^9, {3.730358770404531*^9, 
   3.73035879170397*^9}},
 CellLabel->"Out[1]=",
 CellID->1904934289,ExpressionUUID->"981b73db-95d7-4145-a7a4-ba59f7c9ce08"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ReflectionList", "[", 
  RowBox[{"\"\<Silicon\>\"", ",", "0.709317", ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"h_", ",", "k_", ",", "l_"}], "}"}], "/;", 
    RowBox[{
     RowBox[{"h", "+", "k"}], "\[Equal]", "l"}]}], ",", 
   RowBox[{"\"\<SplitEquivalent\>\"", "\[Rule]", "True"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6845520117738323`*^9, 3.6845520169493628`*^9}, 
   3.730358788664667*^9},
 CellLabel->"In[2]:=",
 CellID->174342472,ExpressionUUID->"6c67b537-a154-4a40-a8fe-9825735cb907"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0", ",", "2", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "0", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", 
     RowBox[{"-", "2"}], ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", 
     RowBox[{"-", "2"}], ",", 
     RowBox[{"-", "2"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2"}], ",", "2", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2"}], ",", "0", ",", 
     RowBox[{"-", "2"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "4", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "2", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "0", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", 
     RowBox[{"-", "4"}], ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", 
     RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", 
     RowBox[{"-", "4"}], ",", 
     RowBox[{"-", "4"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", 
     RowBox[{"-", "4"}], ",", 
     RowBox[{"-", "2"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "4"}], ",", "4", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2"}], ",", "4", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "4"}], ",", "0", ",", 
     RowBox[{"-", "4"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "4"}], ",", "2", ",", 
     RowBox[{"-", "2"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2"}], ",", 
     RowBox[{"-", "2"}], ",", 
     RowBox[{"-", "4"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "6", ",", "6"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "4", ",", "6"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "2", ",", "6"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"6", ",", "0", ",", "6"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"6", ",", 
     RowBox[{"-", "6"}], ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"6", ",", 
     RowBox[{"-", "4"}], ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"6", ",", 
     RowBox[{"-", "2"}], ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", 
     RowBox[{"-", "6"}], ",", 
     RowBox[{"-", "6"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", 
     RowBox[{"-", "6"}], ",", 
     RowBox[{"-", "4"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", 
     RowBox[{"-", "6"}], ",", 
     RowBox[{"-", "2"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "6"}], ",", "6", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "4"}], ",", "6", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2"}], ",", "6", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "6"}], ",", "0", ",", 
     RowBox[{"-", "6"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "6"}], ",", "2", ",", 
     RowBox[{"-", "4"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "6"}], ",", "4", ",", 
     RowBox[{"-", "2"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "4"}], ",", 
     RowBox[{"-", "2"}], ",", 
     RowBox[{"-", "6"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2"}], ",", 
     RowBox[{"-", "4"}], ",", 
     RowBox[{"-", "6"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "8", ",", "8"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "6", ",", "8"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "4", ",", "8"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"6", ",", "2", ",", "8"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"8", ",", "0", ",", "8"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"8", ",", 
     RowBox[{"-", "8"}], ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"8", ",", 
     RowBox[{"-", "6"}], ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"8", ",", 
     RowBox[{"-", "4"}], ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"8", ",", 
     RowBox[{"-", "2"}], ",", "6"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", 
     RowBox[{"-", "8"}], ",", 
     RowBox[{"-", "8"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", 
     RowBox[{"-", "8"}], ",", 
     RowBox[{"-", "6"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", 
     RowBox[{"-", "8"}], ",", 
     RowBox[{"-", "4"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"6", ",", 
     RowBox[{"-", "8"}], ",", 
     RowBox[{"-", "2"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "8"}], ",", "8", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "6"}], ",", "8", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "4"}], ",", "8", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2"}], ",", "8", ",", "6"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "8"}], ",", "0", ",", 
     RowBox[{"-", "8"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "8"}], ",", "2", ",", 
     RowBox[{"-", "6"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "8"}], ",", "4", ",", 
     RowBox[{"-", "4"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "8"}], ",", "6", ",", 
     RowBox[{"-", "2"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "6"}], ",", 
     RowBox[{"-", "2"}], ",", 
     RowBox[{"-", "8"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "4"}], ",", 
     RowBox[{"-", "4"}], ",", 
     RowBox[{"-", "8"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2"}], ",", 
     RowBox[{"-", "6"}], ",", 
     RowBox[{"-", "8"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.684552017300304*^9, 3.684552143732994*^9, 3.685769660941963*^9, 
   3.6857709404558897`*^9, {3.716203457312437*^9, 3.716203463199066*^9}, 
   3.7185330865863743`*^9, 3.730358792465682*^9},
 CellLabel->"Out[2]=",
 CellID->2051602948,ExpressionUUID->"e50ec4ac-4529-42a9-88cd-15d73556e675"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "8e7c64d8-ee08-4968-857f-d8b39e4eb10f"],
  $Line = 0; Null]], "ExampleDelimiter",
 CellID->1319135198,ExpressionUUID->"77a0411b-92ee-4022-9c15-6fd25ee8e5a9"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ReflectionList", "[", 
  RowBox[{"\"\<ManganeseSilicon\>\"", ",", "1.541", ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"h_", ",", "k_", ",", "l_"}], "}"}], "/;", 
    RowBox[{"h", "\[Equal]", "1"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.684552039781908*^9, 3.684552136096566*^9}, {
  3.685769824516901*^9, 3.685769826543543*^9}, {3.730358804096129*^9, 
  3.7303588185896807`*^9}},
 CellLabel->"In[1]:=",
 CellID->84101158,ExpressionUUID->"005ead44-dfd1-4031-852f-c3d733d99749"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0", ",", "1", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "0", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "0", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "0", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "1", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "3", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "1", ",", "4"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.684552043288579*^9, 3.684552049949592*^9}, {
   3.684552087801145*^9, 3.684552146791463*^9}, {3.685769810957616*^9, 
   3.68576982696581*^9}, 3.685769860219261*^9, 3.685770945299344*^9, 
   3.7162034668248787`*^9, 3.7185330939406843`*^9, {3.730358806371917*^9, 
   3.73035882356144*^9}},
 CellLabel->"Out[1]=",
 CellID->1444023150,ExpressionUUID->"8560ceab-d89f-42aa-8ea8-db5ef8cd71ed"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ReflectionList", "[", 
  RowBox[{"\"\<ManganeseSilicon\>\"", ",", "1.541", ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"h_", ",", "k_", ",", "l_"}], "}"}], "/;", 
    RowBox[{"h", "\[Equal]", "1"}]}], ",", 
   RowBox[{"\"\<SplitEquivalent\>\"", "\[Rule]", "True"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.684552122858344*^9, 3.6845521255050707`*^9}, {
  3.685769853811351*^9, 3.6857698555251713`*^9}, {3.730358811936198*^9, 
  3.73035882141392*^9}},
 CellLabel->"In[2]:=",
 CellID->1172460422,ExpressionUUID->"7fd5b3e6-7d29-455e-984e-1320a210695f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "0", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "0", ",", 
     RowBox[{"-", "1"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", 
     RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "0", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "0", ",", 
     RowBox[{"-", "2"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", 
     RowBox[{"-", "1"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", 
     RowBox[{"-", "2"}], ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", 
     RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", 
     RowBox[{"-", "1"}], ",", 
     RowBox[{"-", "1"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "0", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "3", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "0", ",", 
     RowBox[{"-", "3"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", 
     RowBox[{"-", "2"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", 
     RowBox[{"-", "1"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", 
     RowBox[{"-", "3"}], ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", 
     RowBox[{"-", "2"}], ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", 
     RowBox[{"-", "1"}], ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", 
     RowBox[{"-", "2"}], ",", 
     RowBox[{"-", "1"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", 
     RowBox[{"-", "1"}], ",", 
     RowBox[{"-", "2"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "0", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "3", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "4", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "0", ",", 
     RowBox[{"-", "4"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", 
     RowBox[{"-", "3"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", 
     RowBox[{"-", "2"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "3", ",", 
     RowBox[{"-", "1"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", 
     RowBox[{"-", "4"}], ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", 
     RowBox[{"-", "3"}], ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", 
     RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", 
     RowBox[{"-", "1"}], ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", 
     RowBox[{"-", "3"}], ",", 
     RowBox[{"-", "1"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", 
     RowBox[{"-", "2"}], ",", 
     RowBox[{"-", "2"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", 
     RowBox[{"-", "1"}], ",", 
     RowBox[{"-", "3"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "3", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "4", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", 
     RowBox[{"-", "4"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", 
     RowBox[{"-", "3"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "3", ",", 
     RowBox[{"-", "2"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "4", ",", 
     RowBox[{"-", "1"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", 
     RowBox[{"-", "4"}], ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", 
     RowBox[{"-", "3"}], ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", 
     RowBox[{"-", "2"}], ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", 
     RowBox[{"-", "1"}], ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", 
     RowBox[{"-", "4"}], ",", 
     RowBox[{"-", "1"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", 
     RowBox[{"-", "3"}], ",", 
     RowBox[{"-", "2"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", 
     RowBox[{"-", "2"}], ",", 
     RowBox[{"-", "3"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", 
     RowBox[{"-", "1"}], ",", 
     RowBox[{"-", "4"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "3", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "4", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", 
     RowBox[{"-", "4"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "3", ",", 
     RowBox[{"-", "3"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "4", ",", 
     RowBox[{"-", "2"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", 
     RowBox[{"-", "4"}], ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", 
     RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", 
     RowBox[{"-", "2"}], ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", 
     RowBox[{"-", "4"}], ",", 
     RowBox[{"-", "2"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", 
     RowBox[{"-", "3"}], ",", 
     RowBox[{"-", "3"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", 
     RowBox[{"-", "2"}], ",", 
     RowBox[{"-", "4"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.684552123511675*^9, 3.6845521478697433`*^9}, 
   3.6857698619058943`*^9, 3.685770946765641*^9, 3.716203473009075*^9, 
   3.718533096389578*^9, 3.7303588246210814`*^9},
 CellLabel->"Out[2]=",
 CellID->532607724,ExpressionUUID->"3ddbc299-2bf0-4788-baab-c5bf572f39d5"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 InterpretationBox[Cell[
  "Applications", "ExampleSection",ExpressionUUID->
   "ceb8552a-e99a-44a1-b04e-49de0aafb60a"],
  $Line = 0; Null]], "ExampleSection",
 CellID->258228157,ExpressionUUID->"7c2a122d-1d81-4ce7-93c6-7142347aefe9"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Properties & Relations", "ExampleSection",ExpressionUUID->
   "8b570831-d0b1-4e60-9f6c-75f6dee5af93"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2123667759,ExpressionUUID->"1b022fac-e45d-40ec-be4d-9ff545a21f38"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "Possible Issues", "ExampleSection",ExpressionUUID->
   "93ef0c5f-2441-411d-a785-91e8005ecaf7"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1305812373,ExpressionUUID->"1c03076d-3038-4933-8008-62730c3e3276"],

Cell[TextData[{
 "The ",
 Cell[BoxData[
 "\"\<Keep\>\""], "InlineFormula",ExpressionUUID->
  "f5573a82-1270-402b-aa4f-a3d8c3d8357a"],
 " option is only to be used together with the input of a ",
 Cell[BoxData[
  StyleBox["crystal", "TI"]], "InlineFormula",ExpressionUUID->
  "7561aa4a-4272-4712-840f-82e1bfaed0c3"],
 ":"
}], "ExampleText",
 CellChangeTimes->{{3.685771028752325*^9, 3.6857710763118143`*^9}},
 CellID->1140851266,ExpressionUUID->"96b39624-5b78-408a-a8be-8573713d8a0c"]
}, Open  ]],

Cell[BoxData[
 InterpretationBox[Cell[
  "Interactive Examples", "ExampleSection",ExpressionUUID->
   "b3ab90ea-db98-434d-924e-7229c9c40ed3"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1653164318,ExpressionUUID->"e2dc79b9-4533-4c5d-8df8-c2cdb4feb557"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Neat Examples", "ExampleSection",ExpressionUUID->
   "e01b8de8-b26c-4184-aa87-65e90fb91216"],
  $Line = 0; Null]], "ExampleSection",
 CellID->589267740,ExpressionUUID->"9d783300-9028-4890-a791-400778bbd969"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[TextData[{
   StyleBox["Mathematica",
    FontSlant->"Italic"],
   " code"
  }], "ExampleSection",ExpressionUUID->"a1a1addb-b62b-4a23-a897-81b809c651cb"],
  $Line = 0; Null]], "ExampleSection",
 CellChangeTimes->{{3.684552301749023*^9, 3.684552305035552*^9}},
 CellID->626448229,ExpressionUUID->"2bfe5758-7701-4330-bd81-09a9b2d0b4f2"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"ReflectionList", "::", "form"}], "=", 
   "\"\<Some reflections are not on a {\!\(\*StyleBox[\"h\", \"TI\"]\), \
\!\(\*StyleBox[\"k\", \"TI\"]\), \!\(\*StyleBox[\"l\", \"TI\"]\)} \
form.\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ReflectionList", "::", "integer"}], "=", 
   "\"\<Some reflection indices are not integers.\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ReflectionList", "::", "empty"}], "=", 
   "\"\<No reflections match the conditions.\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ReflectionList", "::", "keep"}], "=", 
   "\"\<Invalid setting for the \[LeftGuillemet]Keep\[RightGuillemet] option.\
\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ReflectionList", "::", "index"}], "=", 
   "\"\<Invalid index setting.\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"ReflectionList", "::", "limit"}], "=", 
    "\"\<Limit must be a natural number.\>\""}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Options", "@", "ReflectionList"}], "=", 
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"\"\<AngleThreshold\>\"", "\[Rule]", 
       RowBox[{"90.", "*", "Degree"}]}], ",", "\[IndentingNewLine]", 
      RowBox[{"\"\<CustomReflections\>\"", "\[Rule]", "False"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"\"\<Keep\>\"", "\[Rule]", "All"}], ",", "\[IndentingNewLine]", 
      
      RowBox[{"\"\<Limit\>\"", "\[Rule]", "30"}], ",", "\[IndentingNewLine]", 
      
      RowBox[{"\"\<ShowProgress\>\"", "\[Rule]", "True"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"\"\<SplitEquivalent\>\"", "\[Rule]", "False"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"\"\<HoldIndex\>\"", "\[Rule]", "False"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"'", 
        RowBox[{"ToStandardSetting", "'"}], " ", "options"}], " ", "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"\"\<ToStandardSetting\>\"", "\[Rule]", "True"}]}], 
     "\[IndentingNewLine]", "}"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SyntaxInformation", "@", "ReflectionList"}], "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{"\"\<ArgumentsPattern\>\"", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"_", ",", "_.", ",", "_.", ",", 
       RowBox[{"OptionsPattern", "[", "]"}]}], "}"}]}], "\[IndentingNewLine]",
     "}"}]}], ";"}]}], "Input",
 InitializationCell->False,
 CellChangeTimes->{
  3.730356152266515*^9, {3.742022139935775*^9, 3.742022156094028*^9}, {
   3.747570305997864*^9, 3.74757032094812*^9}, {3.7475703848465242`*^9, 
   3.747570395306778*^9}, {3.756716956796039*^9, 3.7567169620983343`*^9}, {
   3.756717130861485*^9, 3.756717131292181*^9}, {3.787040600017569*^9, 
   3.787040601759708*^9}},
 CellLabel->"In[815]:=",
 CellID->1328922508,ExpressionUUID->"a351347c-c5c1-4a8f-b19e-bcfc51b751e1"],

Cell[BoxData[
 RowBox[{
  RowBox[{"ReflectionList", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"n_", "?", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"IntegerQ", "[", "#", "]"}], "&&", 
        RowBox[{"Positive", "[", "#", "]"}]}], "&"}], ")"}]}], ",", 
    "\[IndentingNewLine]", "condition___Condition", ",", 
    "\[IndentingNewLine]", 
    RowBox[{"OptionsPattern", "[", "]"}]}], "]"}], ":=", 
  RowBox[{"Block", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "opt", ",", "i", ",", "v", ",", "h", ",", "k", ",", "l", ",", "hkl"}], 
     "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"(*", " ", 
     RowBox[{"Optional", ":", " ", 
      RowBox[{
      "Hold", " ", "an", " ", "index", " ", "at", " ", "same", " ", 
       "value"}]}], " ", "*)"}], "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"opt", "=", 
      RowBox[{"OptionValue", "[", "\"\<HoldIndex\>\"", "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"TrueQ", "[", 
        RowBox[{
         RowBox[{"Head", "@", "opt"}], "\[Equal]", "Rule"}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{"i", ",", "v"}], "}"}], "=", 
         RowBox[{
          RowBox[{
           RowBox[{"Part", "[", 
            RowBox[{"opt", ",", "#"}], "]"}], "&"}], "/@", 
          RowBox[{"{", 
           RowBox[{"1", ",", "2"}], "}"}]}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"i", "=", 
         RowBox[{"StringTake", "[", 
          RowBox[{"i", ",", 
           RowBox[{"-", "1"}]}], "]"}]}]}], ",", "\[IndentingNewLine]", 
       RowBox[{"i", "=", "\"\<None\>\""}]}], "]"}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", "\t", 
     RowBox[{"(*", " ", "Check", " ", "*)"}], "\[IndentingNewLine]", "\t", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"i", "\[NotEqual]", "\"\<None\>\""}], ",", 
       "\[IndentingNewLine]", "\t", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"!", 
           RowBox[{"MemberQ", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"\"\<h\>\"", ",", "\"\<k\>\"", ",", "\"\<l\>\""}], 
              "}"}], ",", "i"}], "]"}]}], "||", 
          RowBox[{"!", 
           RowBox[{"IntegerQ", "[", "v", "]"}]}]}], ",", 
         "\[IndentingNewLine]", "\t", 
         RowBox[{
          RowBox[{"Message", "[", 
           RowBox[{"ReflectionList", "::", "index"}], "]"}], ";", 
          "\[IndentingNewLine]", "\t", 
          RowBox[{"Abort", "[", "]"}]}]}], "]"}]}], "]"}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"hkl", "=", 
      RowBox[{"Which", "[", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"i", "\[Equal]", "\"\<h\>\""}], ",", "\[IndentingNewLine]", 
        RowBox[{"Flatten", "[", 
         RowBox[{
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"v", ",", "k", ",", "l"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"k", ",", 
              RowBox[{"-", "n"}], ",", "n"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"l", ",", 
              RowBox[{"-", "n"}], ",", "n"}], "}"}]}], "]"}], ",", "1"}], 
         "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"i", "\[Equal]", "\"\<k\>\""}], ",", "\[IndentingNewLine]", 
        RowBox[{"Flatten", "[", 
         RowBox[{
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"h", ",", "v", ",", "l"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"h", ",", 
              RowBox[{"-", "n"}], ",", "n"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"l", ",", 
              RowBox[{"-", "n"}], ",", "n"}], "}"}]}], "]"}], ",", "1"}], 
         "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"i", "\[Equal]", "\"\<l\>\""}], ",", "\[IndentingNewLine]", 
        RowBox[{"Flatten", "[", 
         RowBox[{
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"h", ",", "k", ",", "v"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"h", ",", 
              RowBox[{"-", "n"}], ",", "n"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"k", ",", 
              RowBox[{"-", "n"}], ",", "n"}], "}"}]}], "]"}], ",", "1"}], 
         "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", "True", 
        ",", "\[IndentingNewLine]", 
        RowBox[{"Tuples", "[", 
         RowBox[{
          RowBox[{"Range", "[", 
           RowBox[{
            RowBox[{"-", "n"}], ",", "n"}], "]"}], ",", "3"}], "]"}]}], 
       "\[IndentingNewLine]", "]"}]}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"Remove", " ", 
       RowBox[{"the", " ", "'"}], 
       RowBox[{"000", "'"}], " ", "reflection"}], " ", "*)"}], 
     "\[IndentingNewLine]", "\t", 
     RowBox[{"hkl", "=", 
      RowBox[{"DeleteCases", "[", 
       RowBox[{"hkl", ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", "Sorting", " ", "*)"}], "\[IndentingNewLine]", "\t", 
     RowBox[{"hkl", "=", 
      RowBox[{"SortBy", "[", 
       RowBox[{"hkl", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"Total", "@", 
            RowBox[{"Abs", "[", "#", "]"}]}], "&"}], ",", "Negative"}], 
         "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     
     RowBox[{"(*", " ", 
      RowBox[{
      "Checking", " ", "if", " ", "extra", " ", "conditions", " ", "are", " ",
        "present"}], " ", "*)"}], "\[IndentingNewLine]", "\t", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"{", "condition", "}"}], "\[NotEqual]", 
        RowBox[{"{", "}"}]}], ",", "\[IndentingNewLine]", "\t", 
       RowBox[{"(*", " ", 
        RowBox[{"Filtering", " ", "reflections"}], " ", "*)"}], 
       "\[IndentingNewLine]", "\t", 
       RowBox[{"hkl", "=", 
        RowBox[{"Cases", "[", 
         RowBox[{"hkl", ",", "condition"}], "]"}]}]}], "]"}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"Return", "@", "hkl"}]}]}], "\[IndentingNewLine]", 
   "]"}]}]], "Input",
 InitializationCell->False,
 CellChangeTimes->{
  3.6678115931321983`*^9, 3.6681063146377697`*^9, {3.6681794881585197`*^9, 
   3.6681794908373833`*^9}, 3.668179945997423*^9, {3.66818814657975*^9, 
   3.668188157307557*^9}, {3.6846634286032257`*^9, 3.684663437628909*^9}, {
   3.684666849371333*^9, 3.684666850027832*^9}, {3.684666967261876*^9, 
   3.6846670086191874`*^9}, {3.6846670396091223`*^9, 
   3.6846671042527514`*^9}, {3.684667154917301*^9, 3.684667166534492*^9}, {
   3.685418587482739*^9, 3.685418600803513*^9}, {3.6854196568824778`*^9, 
   3.685419762523224*^9}, {3.6854198033527*^9, 3.685420025866006*^9}, {
   3.6854209220003233`*^9, 3.685420970517354*^9}, {3.685421010676374*^9, 
   3.685421055071308*^9}, {3.6854211041566896`*^9, 3.685421105555825*^9}, {
   3.685768693396085*^9, 3.685768694755793*^9}, {3.7161940339382677`*^9, 
   3.716194068263068*^9}, 3.7161942428531113`*^9, 3.7161943378126307`*^9, {
   3.716194403563705*^9, 3.716194405470615*^9}, {3.716197549021216*^9, 
   3.7161976731716957`*^9}, {3.716197717712677*^9, 3.71619772022684*^9}, {
   3.7161977595993767`*^9, 3.716197788631216*^9}, {3.716197844708214*^9, 
   3.716197847086852*^9}, {3.7161978772508383`*^9, 3.716197881594894*^9}, {
   3.71619791290978*^9, 3.716197954650558*^9}, {3.716197998443026*^9, 
   3.7161980383758698`*^9}, {3.716198109371828*^9, 3.71619815097666*^9}, {
   3.716198220389483*^9, 3.7161982363282843`*^9}, {3.716198272914839*^9, 
   3.7161982897401857`*^9}, {3.716206052767763*^9, 3.7162060916556883`*^9}, {
   3.7162061573118143`*^9, 3.7162061889322157`*^9}, 3.7185177553887987`*^9, {
   3.718517839124168*^9, 3.7185178837692966`*^9}, {3.71851862637221*^9, 
   3.718518632587442*^9}, {3.71851874344134*^9, 3.718518795246827*^9}, {
   3.718518867183139*^9, 3.718518869398591*^9}, 3.718518962141176*^9, {
   3.718518998347128*^9, 3.7185190920731363`*^9}, {3.718519440795792*^9, 
   3.718519442793964*^9}, {3.7185196193513517`*^9, 3.718519699717318*^9}, {
   3.7595195662034073`*^9, 3.759519566505848*^9}, 3.762793093918374*^9},
 Background->RGBColor[0.94, 0.91, 0.88],
 CellLabel->"In[824]:=",
 CellID->1370663156,ExpressionUUID->"ed19cf80-0003-47c0-b61b-e144d4913188"],

Cell[BoxData[
 RowBox[{
  RowBox[{"ReflectionList", "[", "\[IndentingNewLine]", 
   RowBox[{"crystal_String", ",", "\[IndentingNewLine]", 
    RowBox[{"lambda", ":", 
     RowBox[{"_", "?", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"NumericQ", "[", "#", "]"}], "||", 
         RowBox[{"QuantityQ", "[", "#", "]"}]}], "&"}], ")"}]}], ":", 
     RowBox[{"-", "1"}]}], ",", "\[IndentingNewLine]", 
    "condition___Condition", ",", "\[IndentingNewLine]", 
    RowBox[{"OptionsPattern", "[", "]"}]}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
     "\[Lambda]", ",", "limit", ",", "H", ",", "\[Theta]", ",", 
      "checkIfEmpty", ",", "custom", ",", "n", ",", "list", ",", 
      "\[IndentingNewLine]", "G", ",", "Ginv", ",", "CrystalDot", ",", "res", 
      ",", "\[IndentingNewLine]", "keep", ",", "options", ",", 
      "angleThreshold", ",", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", "Progress", " ", "*)"}], "\[IndentingNewLine]", 
      "progress", ",", "total"}], "\[IndentingNewLine]", "}"}], ",", 
    "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"(*", " ", 
     RowBox[{"Dynamical", " ", "progress"}], " ", "*)"}], 
    "\[IndentingNewLine]", "\t", 
    RowBox[{
     RowBox[{"progress", "=", 
      RowBox[{"{", 
       RowBox[{"0", ",", "\"\<Initialisation\>\""}], "}"}]}], ";", 
     "\[IndentingNewLine]", "\t", 
     RowBox[{"total", "=", "11"}], ";", "\[IndentingNewLine]", "\t", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"OptionValue", "[", "\"\<ShowProgress\>\"", "]"}], ",", 
       "\[IndentingNewLine]", "\t", 
       RowBox[{"PrintTemporary", "[", 
        RowBox[{"Row", "[", 
         RowBox[{"{", "\[IndentingNewLine]", "\t", 
          RowBox[{
           RowBox[{"ProgressIndicator", "@", 
            RowBox[{"Dynamic", "[", 
             RowBox[{
              RowBox[{
              "progress", "\[LeftDoubleBracket]", "1", 
               "\[RightDoubleBracket]"}], "/", "total"}], "]"}]}], ",", 
           "\[IndentingNewLine]", "\t", 
           RowBox[{"Spacer", "[", "10", "]"}], ",", "\[IndentingNewLine]", 
           "\t", 
           RowBox[{"Dynamic", "@", 
            RowBox[{
            "progress", "\[LeftDoubleBracket]", "2", 
             "\[RightDoubleBracket]"}]}]}], "\[IndentingNewLine]", "\t", 
          "}"}], "]"}], "]"}]}], "\[IndentingNewLine]", "\t", "]"}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"Checking", " ", "input"}], " ", "*)"}], "\[IndentingNewLine]", 
     "\t", 
     RowBox[{"progress", "=", 
      RowBox[{"{", 
       RowBox[{"0", ",", "\"\<Checking input\>\""}], "}"}]}], ";", 
     "\[IndentingNewLine]", "\t", 
     RowBox[{"\[Lambda]", "=", 
      RowBox[{"InputCheck", "[", 
       RowBox[{"\"\<ProcessWavelength\>\"", ",", "crystal", ",", "lambda"}], 
       "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", "\t", 
     RowBox[{"limit", "=", 
      RowBox[{"OptionValue", "[", "\"\<Limit\>\"", "]"}]}], ";", 
     "\[IndentingNewLine]", "\t", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"!", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"Positive", "[", "limit", "]"}], "&&", 
          RowBox[{"IntegerQ", "[", "limit", "]"}]}], ")"}]}], ",", 
       "\[IndentingNewLine]", "\t", 
       RowBox[{
        RowBox[{"Message", "[", 
         RowBox[{"ReflectionList", "::", "limit"}], "]"}], ";", 
        RowBox[{"Abort", "[", "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", "\t", 
     RowBox[{"(*", " ", 
      RowBox[{"Useful", " ", "variables"}], " ", "*)"}], 
     "\[IndentingNewLine]", "\t", 
     RowBox[{"progress", "=", 
      RowBox[{"{", 
       RowBox[{"2", ",", "\"\<Defining variables\>\""}], "}"}]}], ";", 
     "\[IndentingNewLine]", "\t", 
     RowBox[{"G", "=", 
      RowBox[{"GetCrystalMetric", "[", "crystal", "]"}]}], ";", 
     "\[IndentingNewLine]", "\t", 
     RowBox[{"Ginv", "=", 
      RowBox[{"Inverse", "@", "G"}]}], ";", "\[IndentingNewLine]", "\t", 
     RowBox[{"H", "=", 
      RowBox[{"N", "@", 
       RowBox[{"Chop", "@", "Ginv"}]}]}], ";", "\[IndentingNewLine]", "\t", 
     RowBox[{
      RowBox[{"\[Theta]", "[", "hkl_", "]"}], ":=", 
      RowBox[{"N", "[", 
       RowBox[{"ArcSin", "[", 
        RowBox[{"\[Lambda]", "*", 
         RowBox[{
          RowBox[{"Sqrt", "[", 
           RowBox[{"hkl", ".", "H", ".", "hkl"}], "]"}], "/", "2"}]}], "]"}], 
       "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", "\t\t", 
     RowBox[{"(*", " ", 
      RowBox[{"Empty", " ", "list", " ", "check"}], " ", "*)"}], 
     "\[IndentingNewLine]", "\t\t", 
     RowBox[{"checkIfEmpty", ":=", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"list", "\[Equal]", 
         RowBox[{"{", "}"}]}], ",", "\[IndentingNewLine]", "\t\t", 
        RowBox[{
         RowBox[{"Message", "[", 
          RowBox[{"ReflectionList", "::", "empty"}], "]"}], ";", 
         "\[IndentingNewLine]", "\t\t", 
         RowBox[{"Goto", "[", "\"\<ReturnEmpty\>\"", "]"}]}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", "\t", 
     RowBox[{"(*", " ", 
      RowBox[{"Option", ":", " ", 
       RowBox[{"Use", " ", "custom", " ", "reflections"}]}], " ", "*)"}], 
     "\[IndentingNewLine]", "\t", 
     RowBox[{"progress", "=", 
      RowBox[{"{", 
       RowBox[{"3", ",", "\"\<Custom input\>\""}], "}"}]}], ";", 
     "\[IndentingNewLine]", "\t", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"ListQ", "@", 
        RowBox[{"OptionValue", "[", "\"\<CustomReflections\>\"", "]"}]}], ",",
        "\[IndentingNewLine]", "\t", 
       RowBox[{
        RowBox[{"custom", "=", 
         RowBox[{"OptionValue", "[", "\"\<CustomReflections\>\"", "]"}]}], 
        ";", "\[IndentingNewLine]", "\[IndentingNewLine]", "\t", 
        RowBox[{"(*", " ", 
         RowBox[{"Check", " ", "custom", " ", "input"}], " ", "*)"}], 
        "\[IndentingNewLine]", "\t", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"Flatten", "@", "custom"}], "\[Equal]", 
           RowBox[{"{", "}"}]}], ",", "\[IndentingNewLine]", "\t", 
          RowBox[{
           RowBox[{"Message", "[", 
            RowBox[{"InputCheck", "::", "hkl"}], "]"}], ";", 
           "\[IndentingNewLine]", "\t", 
           RowBox[{"Return", "[", 
            RowBox[{"{", "}"}], "]"}]}]}], "\[IndentingNewLine]", "\t", "]"}],
         ";", "\[IndentingNewLine]", "\[IndentingNewLine]", "\t", 
        RowBox[{"Check", "[", 
         RowBox[{
          RowBox[{"InputCheck", "[", 
           RowBox[{
           "custom", ",", "\"\<Integer\>\"", ",", "\"\<WrapSingle\>\""}], 
           "]"}], ",", "\[IndentingNewLine]", "\t", 
          RowBox[{"Abort", "[", "]"}]}], "]"}], ";", "\t", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", "\t", 
        RowBox[{"list", "=", "custom"}], ";", "\[IndentingNewLine]", "\t", 
        RowBox[{"Goto", "[", "\"\<ListDone\>\"", "]"}]}]}], 
      "\[IndentingNewLine]", "\t", "]"}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{
      "*", " ", "Generating", " ", "a", " ", "reflection", " ", "list"}], " ",
       "**)"}], "\[IndentingNewLine]", "\t", 
     RowBox[{"progress", "=", 
      RowBox[{"{", 
       RowBox[{"4", ",", "\"\<Generating a reflection list\>\""}], "}"}]}], 
     ";", "\[IndentingNewLine]", "\t", 
     RowBox[{"(*", " ", 
      RowBox[{
      "Dot", " ", "product", " ", "in", " ", "reciprocal", " ", "space"}], 
      " ", "*)"}], "\[IndentingNewLine]", "\t", 
     RowBox[{
      RowBox[{"CrystalDot", "[", 
       RowBox[{"u_", ",", "v_"}], "]"}], ":=", 
      RowBox[{"Return", "[", "\[IndentingNewLine]", "\t", 
       RowBox[{"Sum", "[", "\[IndentingNewLine]", "\t", 
        RowBox[{
         RowBox[{"Sum", "[", "\[IndentingNewLine]", "\t", 
          RowBox[{
           RowBox[{
            RowBox[{"Ginv", "\[LeftDoubleBracket]", 
             RowBox[{"i", ",", "j"}], "\[RightDoubleBracket]"}], "*", 
            RowBox[{
            "u", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], "*", 
            
            RowBox[{
            "v", "\[LeftDoubleBracket]", "j", "\[RightDoubleBracket]"}]}], 
           ",", "\[IndentingNewLine]", "\t", 
           RowBox[{"{", 
            RowBox[{"j", ",", "3"}], "}"}]}], "]"}], ",", 
         "\[IndentingNewLine]", "\t", 
         RowBox[{"{", 
          RowBox[{"i", ",", "3"}], "}"}]}], "]"}], "\[IndentingNewLine]", 
       "\t", "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", "\t", 
     RowBox[{"(*", " ", 
      RowBox[{"Coarse", " ", "decision", " ", "on", " ", 
       RowBox[{"which", " ", "'"}], 
       RowBox[{"hkl", "'"}], " ", "values", " ", "to", " ", "generate"}], " ",
       "*)"}], "\[IndentingNewLine]", "\t", 
     RowBox[{"progress", "=", 
      RowBox[{"{", 
       RowBox[{"5", ",", "\"\<Deciding which 'hkl' values to generate\>\""}], 
       "}"}]}], ";", "\[IndentingNewLine]", "\t", 
     RowBox[{"options", "=", 
      RowBox[{
       RowBox[{
        RowBox[{"#", "\[Rule]", 
         RowBox[{"OptionValue", "[", "#", "]"}]}], "&"}], "/@", 
       RowBox[{"Keys", "@", 
        RowBox[{"Options", "@", "ReflectionList"}]}]}]}], ";", 
     "\[IndentingNewLine]", "\t", 
     RowBox[{"n", "=", "1"}], ";", "\[IndentingNewLine]", "\t", 
     RowBox[{"While", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Im", "@", 
         RowBox[{"\[Theta]", "[", 
          RowBox[{"{", 
           RowBox[{"n", ",", "n", ",", "n"}], "}"}], "]"}]}], "\[Equal]", 
        "0"}], ",", 
       RowBox[{"n", "++"}]}], "]"}], ";", "\[IndentingNewLine]", "\t", 
     RowBox[{"n", "=", 
      RowBox[{"Min", "[", 
       RowBox[{"n", ",", "limit"}], "]"}]}], ";", "\[IndentingNewLine]", "\t", 
     RowBox[{"list", "=", 
      RowBox[{"ReflectionList", "[", 
       RowBox[{"n", ",", "condition", ",", "options"}], "]"}]}], ";", 
     "\[IndentingNewLine]", "\t", "checkIfEmpty", ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", "\t", 
     RowBox[{"(*", " ", 
      RowBox[{
      "Filter", " ", "away", " ", "reflections", " ", "with", " ", "complex", 
       " ", "Bragg", " ", "angle"}], " ", "*)"}], "\[IndentingNewLine]", "\t", 
     RowBox[{"progress", "=", 
      RowBox[{"{", 
       RowBox[{"6", ",", "\"\<Checking Bragg angles\>\""}], "}"}]}], " ", ";",
      "\[IndentingNewLine]", "\t", 
     RowBox[{"list", "=", 
      RowBox[{"Select", "[", 
       RowBox[{"list", ",", "\[IndentingNewLine]", "\t", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Norm", "[", "#", "]"}], "\[LessEqual]", "1"}], "&&", 
            RowBox[{
             RowBox[{"Head", "[", "#", "]"}], "=!=", "Complex"}]}], "&"}], 
          "[", 
          RowBox[{"\[Theta]", "[", "#", "]"}], "]"}], "&"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", "\t", 
     RowBox[{"(*", " ", 
      RowBox[{"Optional", ":", " ", 
       RowBox[{
       "Truncate", " ", "at", " ", "chosen", " ", "angle", " ", 
        "threshold"}]}], " ", "*)"}], "\[IndentingNewLine]", "\t", 
     RowBox[{"angleThreshold", "=", 
      RowBox[{"OptionValue", "[", "\"\<AngleThreshold\>\"", "]"}]}], ";", 
     "\[IndentingNewLine]", "\t", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"0", "\[LessEqual]", "angleThreshold", "<", 
        RowBox[{"\[Pi]", "/", "2"}]}], ",", "\[IndentingNewLine]", "\t", 
       RowBox[{"list", "=", 
        RowBox[{"Select", "[", 
         RowBox[{"list", ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"\[Theta]", "[", "#", "]"}], "\[LessEqual]", 
             "angleThreshold"}], ")"}], "&"}]}], "]"}]}]}], 
      "\[IndentingNewLine]", "\t", "]"}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", "\t", 
     RowBox[{"(*", " ", 
      RowBox[{"Resolution", " ", "filtering"}], " ", "*)"}], 
     "\[IndentingNewLine]", "\t", 
     RowBox[{"progress", "=", 
      RowBox[{"{", 
       RowBox[{"7", ",", "\"\<Resolution filtering\>\""}], "}"}]}], ";", 
     "\[IndentingNewLine]", "\t", 
     RowBox[{"res", "=", 
      RowBox[{"\[Lambda]", "/", "2"}]}], ";", "\[IndentingNewLine]", "\t", 
     RowBox[{"list", "=", 
      RowBox[{"Select", "[", 
       RowBox[{"list", ",", 
        RowBox[{
         RowBox[{
          RowBox[{"Sqrt", "[", 
           RowBox[{"CrystalDot", "[", 
            RowBox[{"#", ",", "#"}], "]"}], "]"}], "<", 
          RowBox[{"1", "/", 
           RowBox[{"(", 
            RowBox[{"1.01", "*", "res"}], ")"}]}]}], "&"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", "\t", "checkIfEmpty", ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", "\t", 
     RowBox[{"(*", " ", 
      RowBox[{"Filter", " ", "away", " ", "absent", " ", "reflections"}], " ",
       "*)"}], "\[IndentingNewLine]", "\t", 
     RowBox[{"Label", "[", "\"\<ListDone\>\"", "]"}], ";", 
     "\[IndentingNewLine]", "\t", 
     RowBox[{"progress", "=", 
      RowBox[{"{", 
       RowBox[{"8", ",", "\"\<Filtering away absent reflections\>\""}], 
       "}"}]}], ";", "\[IndentingNewLine]", "\t", 
     RowBox[{"list", "=", 
      RowBox[{"Pick", "[", "\[IndentingNewLine]", "\t", 
       RowBox[{"list", ",", "\[IndentingNewLine]", "\t", 
        RowBox[{"SystematicAbsentQ", "[", 
         RowBox[{"crystal", ",", "list"}], "]"}], ",", "\[IndentingNewLine]", 
        "\t", "False"}], "]"}]}], ";", "\[IndentingNewLine]", "\t", 
     "checkIfEmpty", ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{"*", " ", 
       RowBox[{"Optional", ":", " ", 
        RowBox[{
         RowBox[{"Merge", " ", "symmetry"}], "-", 
         RowBox[{"equivalent", " ", "reflections"}]}]}]}], " ", "**)"}], 
     "\[IndentingNewLine]", "\t", 
     RowBox[{"progress", "=", 
      RowBox[{"{", 
       RowBox[{"9", ",", "\"\<Merging symmetry equivalent reflections\>\""}], 
       "}"}]}], ";", "\[IndentingNewLine]", "\t", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"OptionValue", "[", "\"\<SplitEquivalent\>\"", "]"}], ",", 
       "\[IndentingNewLine]", "\t", 
       RowBox[{"(*", " ", "Split", " ", "*)"}], "\[IndentingNewLine]", "\t", 
       "Null", ",", "\[IndentingNewLine]", "\t", 
       RowBox[{"(*", " ", "Merge", " ", "*)"}], "\[IndentingNewLine]", "\t", 
       RowBox[{"list", "=", 
        RowBox[{
        "MergeSymmetryEquivalentReflections", "[", "\[IndentingNewLine]", 
         "\t", 
         RowBox[{"crystal", ",", "list", ",", "\[IndentingNewLine]", "\t", 
          RowBox[{"\"\<ToStandardSetting\>\"", "\[Rule]", 
           RowBox[{"OptionValue", "[", "\"\<ToStandardSetting\>\"", "]"}]}]}],
          "]"}]}]}], "\[IndentingNewLine]", "\t", "]"}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{"*", " ", 
       RowBox[{"Optional", ":", " ", 
        RowBox[{"Limit", " ", "number", " ", "of", " ", "reflections"}]}]}], 
      " ", "**)"}], "\[IndentingNewLine]", "\t", 
     RowBox[{"progress", "=", 
      RowBox[{"{", 
       RowBox[{"10", ",", "\"\<Limiting the number of reflections\>\""}], 
       "}"}]}], ";", "\[IndentingNewLine]", "\t", 
     RowBox[{"keep", "=", 
      RowBox[{"OptionValue", "[", "\"\<Keep\>\"", "]"}]}], ";", 
     "\[IndentingNewLine]", "\t\t", 
     RowBox[{"(*", " ", "Check", " ", "*)"}], "\[IndentingNewLine]", "\t\t", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"keep", "\[Equal]", "All"}], ",", 
       RowBox[{"keep", "=", 
        RowBox[{"Length", "@", "list"}]}]}], "]"}], ";", 
     "\[IndentingNewLine]", "\t\t", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"!", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"IntegerQ", "[", "keep", "]"}], "&&", 
          RowBox[{"Positive", "[", "keep", "]"}]}], ")"}]}], ",", 
       "\[IndentingNewLine]", "\t\t", 
       RowBox[{"Message", "[", 
        RowBox[{"ReflectionList", "::", "keep"}], "]"}]}], "]"}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     "\t", 
     RowBox[{"progress", "=", 
      RowBox[{"{", 
       RowBox[{"11", ",", "\"\<Reflection list done\>\""}], "}"}]}], ";", 
     "\[IndentingNewLine]", "\t", 
     RowBox[{"list", "=", 
      RowBox[{"Take", "[", 
       RowBox[{"list", ",", 
        RowBox[{"Min", "[", 
         RowBox[{"keep", ",", 
          RowBox[{"Length", "@", "list"}]}], "]"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{"--", "-"}], "*", " ", "End", " ", "*", 
       RowBox[{"--", "-"}]}], "*)"}], "\[IndentingNewLine]", 
     RowBox[{"Return", "@", "list"}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"Label", "[", "\"\<ReturnEmpty\>\"", "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Return", "[", 
      RowBox[{"{", "}"}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input",\

 InitializationCell->False,
 CellChangeTimes->{
  3.6678115931321983`*^9, 3.668106184497395*^9, {3.668179282556993*^9, 
   3.668179291738758*^9}, 3.668180181616701*^9, 3.668188149406043*^9, {
   3.6681881979543457`*^9, 3.6681882467050457`*^9}, {3.668188593440853*^9, 
   3.668188694254387*^9}, 3.6681888088447247`*^9, {3.668188844363966*^9, 
   3.668188871474244*^9}, {3.6681889047538137`*^9, 3.668188922729329*^9}, 
   3.668189128709815*^9, {3.668189166268243*^9, 3.668189431749264*^9}, {
   3.668189645376062*^9, 3.668189649240117*^9}, {3.668189804616765*^9, 
   3.668189807470254*^9}, {3.668189838436864*^9, 3.668189884772358*^9}, {
   3.668189929178705*^9, 3.668190023760564*^9}, {3.6681907997252617`*^9, 
   3.668190858100079*^9}, {3.668191260899456*^9, 3.668191322370517*^9}, {
   3.668194280870161*^9, 3.66819428782981*^9}, {3.668196653374757*^9, 
   3.668196677347934*^9}, {3.679758065507057*^9, 3.6797580749954453`*^9}, {
   3.6797581581250477`*^9, 3.679758229415306*^9}, {3.6797582839727993`*^9, 
   3.679758384682056*^9}, {3.67975842843478*^9, 3.679758450522142*^9}, {
   3.67975848234529*^9, 3.679758538264204*^9}, {3.6797588299927883`*^9, 
   3.679758838151547*^9}, {3.679759573704154*^9, 3.6797595780157013`*^9}, {
   3.6816688605634604`*^9, 3.68166886238643*^9}, 3.682761693212624*^9, {
   3.682761776882873*^9, 3.682761783031293*^9}, {3.682761990469831*^9, 
   3.682762067367221*^9}, {3.682762238569338*^9, 3.682762258037012*^9}, {
   3.682762379145604*^9, 3.682762551599121*^9}, {3.6827625926782722`*^9, 
   3.6827626402047586`*^9}, {3.682763068942165*^9, 3.6827630940933104`*^9}, {
   3.682763158201823*^9, 3.682763165807467*^9}, {3.682764974181076*^9, 
   3.682764993909774*^9}, {3.68276795013719*^9, 3.682767951957551*^9}, {
   3.6827683854796124`*^9, 3.6827684355907583`*^9}, {3.682768727648377*^9, 
   3.682768728286333*^9}, {3.682768829821347*^9, 3.6827688433963747`*^9}, 
   3.682769104334716*^9, {3.682769175661327*^9, 3.682769266066882*^9}, 
   3.6827693004348497`*^9, 3.682769417055482*^9, {3.682769455573188*^9, 
   3.682769458940526*^9}, {3.682769607209363*^9, 3.682769627688966*^9}, {
   3.68276970943268*^9, 3.682769728470189*^9}, {3.682769786086359*^9, 
   3.6827697999006023`*^9}, {3.682769838204773*^9, 3.682769852251082*^9}, {
   3.682792225868579*^9, 3.68279222687479*^9}, {3.6827924002405043`*^9, 
   3.682792402616119*^9}, 3.682792574694977*^9, {3.6828253243024063`*^9, 
   3.682825325886156*^9}, {3.6841397853456163`*^9, 3.6841397897886257`*^9}, {
   3.684139855686323*^9, 3.684139909090061*^9}, {3.684140071281108*^9, 
   3.684140072800102*^9}, {3.684140111834372*^9, 3.6841401375080357`*^9}, {
   3.684140171617261*^9, 3.684140367431093*^9}, 3.684140413002187*^9, {
   3.684140607591*^9, 3.684140719518632*^9}, 3.684145330433218*^9, {
   3.684145367821651*^9, 3.68414536950362*^9}, {3.6842136403446903`*^9, 
   3.684213644869915*^9}, {3.684213781858488*^9, 3.684213842590571*^9}, {
   3.684214341919759*^9, 3.6842143481060534`*^9}, {3.684662946378191*^9, 
   3.684663033222123*^9}, {3.684666733281546*^9, 3.6846667335043497`*^9}, {
   3.684666789312871*^9, 3.6846667918438883`*^9}, {3.684667191356744*^9, 
   3.684667230047998*^9}, {3.684667576777402*^9, 3.684667648184586*^9}, {
   3.6846692069053698`*^9, 3.684669239222193*^9}, {3.684669303503991*^9, 
   3.684669304232194*^9}, {3.684669351718648*^9, 3.68466935801514*^9}, {
   3.6846696540499773`*^9, 3.6846697128700647`*^9}, 3.684669821629673*^9, {
   3.684670188061883*^9, 3.684670339910618*^9}, {3.684741565023261*^9, 
   3.684741565191321*^9}, {3.6847416190109797`*^9, 3.6847416192011423`*^9}, {
   3.6847417135516577`*^9, 3.6847417286424093`*^9}, 3.6847440797217293`*^9, {
   3.684745574688994*^9, 3.684745611189694*^9}, {3.684745671918826*^9, 
   3.684745674267671*^9}, {3.684755103228157*^9, 3.684755108576395*^9}, {
   3.684755171923361*^9, 3.684755187463394*^9}, {3.684755246825118*^9, 
   3.684755283342084*^9}, {3.6847553676610107`*^9, 3.684755431665193*^9}, {
   3.684755486352098*^9, 3.684755527993668*^9}, 3.684755583263332*^9, 
   3.6850821865474253`*^9, 3.6850840533478737`*^9, {3.685252116307905*^9, 
   3.685252130289748*^9}, {3.6852521639931173`*^9, 3.6852522099243727`*^9}, {
   3.6852522696028643`*^9, 3.685252305885971*^9}, {3.685299079213583*^9, 
   3.685299128553773*^9}, {3.685421136843091*^9, 3.6854212005008287`*^9}, {
   3.685421247997067*^9, 3.685421273847663*^9}, {3.685421839983242*^9, 
   3.685421881876747*^9}, {3.6854220306738977`*^9, 3.68542211867824*^9}, 
   3.6857659255735283`*^9, {3.685769388710121*^9, 3.685769443166129*^9}, {
   3.685769502208377*^9, 3.6857695272180357`*^9}, {3.685770126995985*^9, 
   3.685770145533038*^9}, {3.685771239786865*^9, 3.685771240255959*^9}, {
   3.685784051382121*^9, 3.6857841117518797`*^9}, {3.685784265618553*^9, 
   3.685784278519128*^9}, {3.685784409071766*^9, 3.685784411110262*^9}, {
   3.685784529872205*^9, 3.6857845940883636`*^9}, {3.685784803091606*^9, 
   3.685784842772554*^9}, {3.686657600224687*^9, 3.686657671699209*^9}, {
   3.6866577115441504`*^9, 3.686657714636054*^9}, {3.686657747010147*^9, 
   3.686657810681427*^9}, {3.6866579946426067`*^9, 3.6866580360676737`*^9}, {
   3.68665807591435*^9, 3.6866582357264347`*^9}, {3.686658270034141*^9, 
   3.6866585330297403`*^9}, {3.686658564917584*^9, 3.686658673625255*^9}, {
   3.686658755022271*^9, 3.686658766266034*^9}, 3.686894057694735*^9, {
   3.6870713455229473`*^9, 3.687071351352529*^9}, {3.6870739076956863`*^9, 
   3.687073920398181*^9}, {3.7143868107397623`*^9, 3.714386844409388*^9}, {
   3.714387107839142*^9, 3.714387129978853*^9}, {3.714455900836638*^9, 
   3.714455905313134*^9}, {3.714457271188592*^9, 3.714457271361904*^9}, {
   3.714457992952488*^9, 3.7144580362802258`*^9}, {3.714458100647457*^9, 
   3.714458104893808*^9}, {3.714458147871139*^9, 3.714458163404636*^9}, {
   3.714458341305675*^9, 3.7144583420726757`*^9}, {3.7147125204212837`*^9, 
   3.714712552375537*^9}, {3.7147129949496403`*^9, 3.714713045261551*^9}, {
   3.714816168307774*^9, 3.7148161969150953`*^9}, {3.714816284113997*^9, 
   3.7148163393843727`*^9}, {3.714816422375482*^9, 3.714816430294612*^9}, {
   3.716193705872978*^9, 3.7161937589650707`*^9}, {3.716193828675597*^9, 
   3.716193905188253*^9}, 3.716194238592029*^9, 3.7161943343865337`*^9, {
   3.7161944090351143`*^9, 3.716194410957553*^9}, {3.7161944865635023`*^9, 
   3.716194488361787*^9}, {3.716194668670053*^9, 3.7161947824000607`*^9}, {
   3.716194928105888*^9, 3.716194929217705*^9}, {3.716194999576075*^9, 
   3.716195018887147*^9}, {3.71619844966753*^9, 3.716198462293277*^9}, {
   3.7161985275653152`*^9, 3.716198541652034*^9}, {3.717740896524231*^9, 
   3.7177409196071587`*^9}, {3.718520024357975*^9, 3.718520050004541*^9}, {
   3.7185204232425213`*^9, 3.7185204317771883`*^9}, {3.7185263265766277`*^9, 
   3.718526358969618*^9}, {3.718526413551124*^9, 3.718526457381061*^9}, {
   3.718526548948234*^9, 3.718526582995021*^9}, {3.7185268790454483`*^9, 
   3.718526883595771*^9}, {3.718526951469385*^9, 3.7185269516031733`*^9}, 
   3.7265615393313313`*^9, 3.727675288396509*^9, 3.727676784192745*^9, 
   3.7301063103561983`*^9, 3.730356159302247*^9, {3.7303566959053307`*^9, 
   3.73035676505906*^9}, {3.7303568110713243`*^9, 3.730356916108645*^9}, {
   3.730357018258333*^9, 3.7303570472177258`*^9}, {3.730357097713035*^9, 
   3.7303571568866863`*^9}, 3.730357226293139*^9, {3.730357395849288*^9, 
   3.730357427671856*^9}, {3.7303574676640463`*^9, 3.730357484270207*^9}, 
   3.737968468305195*^9, {3.742021962959537*^9, 3.7420220175219803`*^9}, {
   3.742022111944613*^9, 3.7420221299270153`*^9}, {3.7420221739832993`*^9, 
   3.742022177446185*^9}, {3.745556959938291*^9, 3.745557003041051*^9}, {
   3.745558561559464*^9, 3.7455585617245617`*^9}, {3.7455586160430117`*^9, 
   3.745558687739943*^9}, {3.745558768953641*^9, 3.745558769946577*^9}, {
   3.74757041908945*^9, 3.747570424961466*^9}, {3.747573253678172*^9, 
   3.747573254773744*^9}, {3.7475733615763073`*^9, 3.747573367401208*^9}, {
   3.7475734376201572`*^9, 3.7475734697721453`*^9}, {3.7475735670941067`*^9, 
   3.7475735891571836`*^9}, {3.747573637757338*^9, 3.7475736438455067`*^9}, {
   3.747573753413155*^9, 3.747573765362599*^9}, {3.747573802571186*^9, 
   3.7475738560600224`*^9}, {3.758530153426703*^9, 3.758530167186606*^9}, {
   3.7595195697667627`*^9, 3.75951957001995*^9}, 3.762793093945218*^9, {
   3.786968610201569*^9, 3.7869686121507483`*^9}, {3.787040611428647*^9, 
   3.787040619699436*^9}, {3.7870407246897917`*^9, 3.7870407299770803`*^9}},
 Background->RGBColor[0.94, 0.91, 0.88],
 CellLabel->"In[825]:=",
 CellID->678581523,ExpressionUUID->"7a67447a-568e-4122-9d77-ea45653dca9c"]
}, Closed]]
}, Open  ]]
},
WindowSize->Medium,
WindowMargins->Automatic,
Visible->True,
CellContext->"Global`",
FrontEndVersion->"11.3 for Mac OS X x86 (32-bit, 64-bit Kernel) (March 5, \
2018)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "FunctionPageStyles.nb", 
  CharacterEncoding -> "UTF-8"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "ExtendedExamples"->{
  Cell[33573, 956, 155, 2, 56, "ExtendedExamplesSection",ExpressionUUID->"18bd5b78-d67e-40e6-b37a-9f797f32ba19",
   CellTags->"ExtendedExamples",
   CellID->1854448968]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"ExtendedExamples", 125614, 3222}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 671, 15, 24, "History",ExpressionUUID->"e168b6b8-ea0f-4c8a-b237-0444814dadb3",
 CellID->1247902091],
Cell[CellGroupData[{
Cell[1254, 39, 123, 1, 29, "CategorizationSection",ExpressionUUID->"57894432-0d5d-4441-a980-b615273aef80",
 CellID->1122911449],
Cell[1380, 42, 134, 2, 30, "Categorization",ExpressionUUID->"19cb10dd-43e8-40d5-b246-1d4a12eb467c",
 CellID->686433507],
Cell[1517, 46, 175, 3, 30, "Categorization",ExpressionUUID->"047d43ab-6303-45eb-aa86-06b284ee7bff",
 CellID->605800465],
Cell[1695, 51, 172, 3, 30, "Categorization",ExpressionUUID->"0ce07056-87b6-4cf3-80cb-b07e36081d4a",
 CellID->468444828],
Cell[1870, 56, 166, 2, 30, "Categorization",ExpressionUUID->"4f78c245-f84c-4504-a958-816f95034ef2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2073, 63, 110, 1, 29, "KeywordsSection",ExpressionUUID->"c14f3866-f355-4e10-86ff-860ef33ab86b",
 CellID->477174294],
Cell[2186, 66, 100, 1, 70, "Keywords",ExpressionUUID->"2ab93a39-ba41-4afa-a1eb-664a862bdd3a",
 CellID->1164421360]
}, Closed]],
Cell[CellGroupData[{
Cell[2323, 72, 120, 1, 19, "TemplatesSection",ExpressionUUID->"4bc37646-9493-4d02-8d66-e70487a4ac13",
 CellID->1872225408],
Cell[2446, 75, 149, 2, 70, "Template",ExpressionUUID->"6fe25e42-d671-4444-9267-6ed48f54b881",
 CellID->1562036412],
Cell[2598, 79, 137, 2, 70, "Template",ExpressionUUID->"f261a0e0-fa4a-4488-9d45-3bfc955d0698",
 CellID->158391909],
Cell[2738, 83, 136, 2, 70, "Template",ExpressionUUID->"49831bfd-a809-48e5-a302-fa571aa685d7",
 CellID->1360575930],
Cell[2877, 87, 137, 2, 70, "Template",ExpressionUUID->"586193ea-67e5-4c6c-8902-2dc615c7eee8",
 CellID->793782254]
}, Closed]],
Cell[CellGroupData[{
Cell[3051, 94, 108, 1, 19, "DetailsSection",ExpressionUUID->"c28bbfd1-222b-44cb-baaf-b446b4d09c02",
 CellID->307771771],
Cell[3162, 97, 118, 2, 70, "Details",ExpressionUUID->"3f74d902-6904-4a8c-9327-f80728df6fad",
 CellID->670882175],
Cell[3283, 101, 124, 2, 70, "Details",ExpressionUUID->"5d59d122-508f-4a35-a36e-4aa3d063db9d",
 CellID->350963985],
Cell[3410, 105, 119, 2, 70, "Details",ExpressionUUID->"18262251-5847-4f63-a8e9-cb055a831471",
 CellID->8391405],
Cell[3532, 109, 124, 2, 70, "Details",ExpressionUUID->"eaf8a865-0ebd-4655-b402-4a2b48cc11fc",
 CellID->3610269],
Cell[3659, 113, 116, 2, 70, "Details",ExpressionUUID->"778f0bcf-c7ff-4b3b-8ec9-0e3e70392981",
 CellID->401364205],
Cell[3778, 117, 116, 2, 70, "Details",ExpressionUUID->"e702ea61-aed8-43fa-8163-e331c5c4e816",
 CellID->350204745],
Cell[3897, 121, 118, 2, 70, "Details",ExpressionUUID->"54d3788a-ad00-4366-8e17-2360b7ebb4fc",
 CellID->732958810],
Cell[4018, 125, 133, 2, 70, "Details",ExpressionUUID->"d5c4b301-fd01-4fbb-91e4-f7ad890f4aa4",
 CellID->222905350],
Cell[4154, 129, 122, 2, 70, "Details",ExpressionUUID->"c2f14522-ee9e-4711-b77c-708e4e7052ce",
 CellID->240026365]
}, Closed]],
Cell[CellGroupData[{
Cell[4313, 136, 112, 1, 63, "ObjectName",ExpressionUUID->"d3244336-63af-4f42-aba8-2adb977cd05f",
 CellID->1224892054],
Cell[4428, 139, 4541, 120, 260, "Usage",ExpressionUUID->"05270fb7-37a8-4477-880e-b3993792be35",
 CellID->982511436],
Cell[8972, 261, 416, 9, 25, "Notes",ExpressionUUID->"a9a37840-4b7b-4a4d-b79f-23d2f3b0a34a",
 CellID->1681993590],
Cell[9391, 272, 1325, 39, 44, "Notes",ExpressionUUID->"0f5d4d8c-a3db-4733-b342-1b9f266ec66d",
 CellID->1067943069],
Cell[10719, 313, 1083, 24, 43, "Notes",ExpressionUUID->"e3fca178-bb07-4ced-97d9-d29425cfabd5",
 CellID->1413831905],
Cell[11805, 339, 176, 2, 25, "Notes",ExpressionUUID->"3da585b9-f7aa-4b85-b3e7-0a16c9887301",
 CellID->592600918],
Cell[11984, 343, 3414, 65, 245, "3ColumnTableMod",ExpressionUUID->"2c1d5aeb-1954-49b5-b7a1-6695bfb2a0c0",
 CellID->1242238685],
Cell[15401, 410, 803, 21, 28, "Notes",ExpressionUUID->"48cb870e-78fc-492e-a5dc-8e68c6700f55",
 CellID->827276997],
Cell[16207, 433, 688, 17, 28, "Notes",ExpressionUUID->"943b836d-4714-4ef3-88e4-2aa0707bade1",
 CellID->213451259]
}, Open  ]],
Cell[CellGroupData[{
Cell[16932, 455, 112, 1, 44, "TutorialsSection",ExpressionUUID->"62dad55e-7889-46b1-8211-151a717e0e6e",
 CellID->250839057],
Cell[17047, 458, 100, 1, 16, "Tutorials",ExpressionUUID->"3b07b1d9-fbf7-4820-b61e-da762d6d9a88",
 CellID->341631938]
}, Open  ]],
Cell[CellGroupData[{
Cell[17184, 464, 138, 1, 31, "RelatedDemonstrationsSection",ExpressionUUID->"0f9f82e4-5c0c-4810-8c4e-a041187a3676",
 CellID->1268215905],
Cell[17325, 467, 113, 1, 16, "RelatedDemonstrations",ExpressionUUID->"d60d26ce-3cde-481a-a440-75c269b52dd1",
 CellID->1129518860]
}, Open  ]],
Cell[CellGroupData[{
Cell[17475, 473, 120, 1, 31, "RelatedLinksSection",ExpressionUUID->"94b15e3f-4982-4187-b5cd-294cfe77bd4b",
 CellID->1584193535],
Cell[17598, 476, 104, 1, 16, "RelatedLinks",ExpressionUUID->"a26ad423-664c-4fb5-b025-8cf4e266d0dc",
 CellID->1038487239]
}, Open  ]],
Cell[CellGroupData[{
Cell[17739, 482, 110, 1, 31, "SeeAlsoSection",ExpressionUUID->"4da0bc37-4ac4-48ef-97f4-efe11ebf6ed4",
 CellID->1255426704],
Cell[17852, 485, 2511, 59, 75, "SeeAlso",ExpressionUUID->"999b7e63-bd49-412d-a660-6a3e31a82ff0",
 CellID->929782353]
}, Open  ]],
Cell[CellGroupData[{
Cell[20400, 549, 112, 1, 31, "MoreAboutSection",ExpressionUUID->"0e7cc9ad-f844-410d-bf9e-d254b4b5d073",
 CellID->38303248],
Cell[20515, 552, 101, 1, 16, "MoreAbout",ExpressionUUID->"8b367c05-da71-4eee-a836-d73f0422f35f",
 CellID->1665078683]
}, Open  ]],
Cell[CellGroupData[{
Cell[20653, 558, 411, 11, 70, "PrimaryExamplesSection",ExpressionUUID->"021808be-423b-4cbf-8727-e2f04a44152c",
 CellID->880084151],
Cell[CellGroupData[{
Cell[21089, 573, 231, 4, 26, "Input",ExpressionUUID->"5fbd48ca-957b-4675-a7b6-d5a13b991e7c",
 CellID->1920457932],
Cell[21323, 579, 2682, 86, 80, "Output",ExpressionUUID->"320e0007-65ad-40a3-9059-5cf462e1911f",
 CellID->260514630]
}, Open  ]],
Cell[CellGroupData[{
Cell[24042, 670, 243, 5, 17, "ExampleDelimiter",ExpressionUUID->"675f883b-7313-41de-9cec-69e8d5c4d425",
 CellID->1067222544],
Cell[CellGroupData[{
Cell[24310, 679, 461, 9, 29, "Input",ExpressionUUID->"49f8b424-2733-4496-ac8b-396ebcf3d614",
 CellID->935811348],
Cell[24774, 690, 3719, 111, 98, "Output",ExpressionUUID->"168ba60c-0099-43cc-9440-6c6d361a8b14",
 CellID->1568851527]
}, Open  ]],
Cell[CellGroupData[{
Cell[28530, 806, 376, 9, 29, "Input",ExpressionUUID->"1be2aa9d-604f-40e7-8f2c-97e00d647df0",
 CellID->1474675616],
Cell[28909, 817, 488, 8, 25, "Output",ExpressionUUID->"8cc66f7e-7325-431c-bc06-4d004c5ea7c3",
 CellID->1148914210]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[29446, 831, 241, 5, 17, "ExampleDelimiter",ExpressionUUID->"bc06512b-fcce-44c6-9606-c312b7c8d238",
 CellID->24979595],
Cell[CellGroupData[{
Cell[29712, 840, 213, 4, 29, "Input",ExpressionUUID->"032096fb-86b8-4960-85d2-4c6ef9c7a18c",
 CellID->1147117202],
Cell[29928, 846, 1872, 52, 80, "Output",ExpressionUUID->"241a2f54-c1b9-4603-80d8-f5820983500c",
 CellID->1884713987]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[31849, 904, 243, 5, 17, "ExampleDelimiter",ExpressionUUID->"de4109c6-c37c-415d-a22c-9ba533f74b24",
 CellID->2099781707],
Cell[CellGroupData[{
Cell[32117, 913, 430, 10, 29, "Input",ExpressionUUID->"ffc26d6b-1c6c-4a3e-b593-6de3a1ec0ae7",
 CellID->1432378398],
Cell[32550, 925, 962, 24, 44, "Output",ExpressionUUID->"b5fa8f20-4761-4037-ab6f-219efa170190",
 CellID->117448137]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[33573, 956, 155, 2, 56, "ExtendedExamplesSection",ExpressionUUID->"18bd5b78-d67e-40e6-b37a-9f797f32ba19",
 CellTags->"ExtendedExamples",
 CellID->1854448968],
Cell[33731, 960, 242, 5, 33, "ExampleSection",ExpressionUUID->"d2ec0439-4f6b-465c-bda4-27a6fb741134",
 CellID->1293636265],
Cell[33976, 967, 265, 5, 21, "ExampleSection",ExpressionUUID->"dfc7aa73-5e73-41fc-bc97-e0ce39364483",
 CellID->1020263627],
Cell[CellGroupData[{
Cell[34266, 976, 244, 5, 21, "ExampleSection",ExpressionUUID->"1ab9cb97-fa8e-442c-b75e-553b88e114c9",
 CellID->2061341341],
Cell[CellGroupData[{
Cell[34535, 985, 327, 6, 24, "ExampleSubsection",ExpressionUUID->"324cbbca-2e3d-435c-86d3-0181118344d6",
 CellID->2070559211],
Cell[CellGroupData[{
Cell[34887, 995, 443, 9, 64, "Input",ExpressionUUID->"8690869c-db79-4d51-91a4-3ebc8830d25a",
 CellID->1690013354],
Cell[35333, 1006, 4175, 120, 170, "Output",ExpressionUUID->"5c1bf2e2-0542-47dc-ae1a-fd1897749d83",
 CellID->996862721]
}, Open  ]],
Cell[39523, 1129, 194, 2, 22, "ExampleText",ExpressionUUID->"a06b4e67-e657-42c2-8e8b-b360dae7d1c6",
 CellID->971896805],
Cell[CellGroupData[{
Cell[39742, 1135, 418, 9, 27, "Input",ExpressionUUID->"21070aeb-cccd-4744-a419-d98f9db91d80",
 CellID->1557110950],
Cell[40163, 1146, 545, 14, 25, "Output",ExpressionUUID->"ae335c17-4c98-44c4-9b2e-52599f491c0d",
 CellID->581895362]
}, Open  ]],
Cell[40723, 1163, 212, 2, 22, "ExampleText",ExpressionUUID->"fceffc8c-746e-4178-8e2f-d644cc95980a",
 CellID->1147495215],
Cell[CellGroupData[{
Cell[40960, 1169, 280, 5, 27, "Input",ExpressionUUID->"c5c17285-cd0f-403e-9a58-96aedbcffe57",
 CellID->1031071660],
Cell[41243, 1176, 879, 22, 29, "Output",ExpressionUUID->"c879aa7d-6e9f-4703-a779-6e6bc3443420",
 CellID->1047554322]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[42171, 1204, 330, 6, 24, "ExampleSubsection",ExpressionUUID->"b6f43def-9680-4642-86c9-2d843cfe8e19",
 CellID->1295379749],
Cell[CellGroupData[{
Cell[42526, 1214, 871, 22, 69, "Input",ExpressionUUID->"7f95e974-b1ac-40b0-964e-742f3ca47de1",
 CellID->2002796734],
Cell[43400, 1238, 770, 17, 25, "Output",ExpressionUUID->"5942206a-a3cd-49f9-bad4-1924bbde40c0",
 CellID->1725941063]
}, Open  ]],
Cell[CellGroupData[{
Cell[44207, 1260, 242, 5, 17, "ExampleDelimiter",ExpressionUUID->"b1f88fc7-7c66-4578-8228-9a9b1bb827b0",
 CellID->289702140],
Cell[CellGroupData[{
Cell[44474, 1269, 722, 17, 50, "Input",ExpressionUUID->"1c85ad04-201f-4393-a8c4-1fbcb306d4d0",
 CellID->678439231],
Cell[45199, 1288, 631, 12, 25, "Output",ExpressionUUID->"e2dcb4fd-1a96-450b-ad4e-5724827b676f",
 CellID->1970653874]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[45879, 1306, 243, 5, 17, "ExampleDelimiter",ExpressionUUID->"2b99c719-bb1c-408b-9ad2-10dddbe5fcc3",
 CellID->1566601292],
Cell[CellGroupData[{
Cell[46147, 1315, 609, 14, 50, "Input",ExpressionUUID->"4082cd22-f2f2-4af2-975f-6148b2c8699a",
 CellID->1718402424],
Cell[46759, 1331, 564, 10, 22, "Message",ExpressionUUID->"b3a42b3c-1dbe-47ce-bde4-250eb10c0105",
 CellID->416440671],
Cell[47326, 1343, 379, 7, 25, "Output",ExpressionUUID->"f6155091-0ec4-4dc1-aaa3-523a88eb0128",
 CellID->469151924]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[47766, 1357, 321, 6, 24, "ExampleSubsection",ExpressionUUID->"9c9d33f5-b7b7-4cdb-a1cf-b650fe737744",
 CellID->1318294814],
Cell[48090, 1365, 923, 27, 38, "ExampleText",ExpressionUUID->"236a9552-a221-4aed-a3b2-17679186102a",
 CellID->1539431896],
Cell[CellGroupData[{
Cell[49038, 1396, 706, 13, 48, "Input",ExpressionUUID->"8a0464e1-1363-441c-8082-69297d2b1091",
 CellID->1236508687],
Cell[49747, 1411, 971, 23, 44, "Output",ExpressionUUID->"e590ded5-c79e-49da-887b-0a87de37d1cb",
 CellID->562232888]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[50767, 1440, 318, 6, 24, "ExampleSubsection",ExpressionUUID->"7bb35839-d49b-4e6a-99e4-6ec68740af5a",
 CellID->167046117],
Cell[CellGroupData[{
Cell[51110, 1450, 303, 6, 29, "Input",ExpressionUUID->"2ce8ab53-a559-485b-aa5a-8cc1b4f8acfd",
 CellID->922627066],
Cell[51416, 1458, 774, 21, 25, "Output",ExpressionUUID->"7865d9d1-48de-4401-93da-71e727c33fd4",
 CellID->2023463518]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[52239, 1485, 367, 7, 24, "ExampleSubsection",ExpressionUUID->"f61e7b13-916f-4591-bb18-87e82baf1916",
 CellID->1850650657],
Cell[CellGroupData[{
Cell[52631, 1496, 356, 7, 29, "Input",ExpressionUUID->"62785af7-f0ae-4705-aaa4-7625a41c615e",
 CellID->1879932698],
Cell[52990, 1505, 703, 18, 25, "Output",ExpressionUUID->"cfe5d3f7-4e53-4372-b482-eb0d73ae4989",
 CellID->1000416421]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[53742, 1529, 468, 8, 24, "ExampleSubsection",ExpressionUUID->"ec7780e0-6a2b-44fe-9b98-59d2e5382e67",
 CellID->1944659239],
Cell[54213, 1539, 296, 5, 37, "ExampleText",ExpressionUUID->"a02f9fe6-6453-458b-933f-45db5d970f3d",
 CellID->1410560420],
Cell[54512, 1546, 12577, 211, 34, "Input",ExpressionUUID->"721e50d4-190a-4728-a735-f34746d0b8e8",
 CellID->1791825034]
}, Open  ]],
Cell[CellGroupData[{
Cell[67126, 1762, 330, 6, 24, "ExampleSubsection",ExpressionUUID->"adc55b98-7149-44d8-9f5f-08a4144847f8",
 CellID->1757724783],
Cell[67459, 1770, 426, 10, 25, "ExampleText",ExpressionUUID->"c160ee37-72e9-4be3-8e5c-ae36776ff6d3",
 CellID->93225219],
Cell[CellGroupData[{
Cell[67910, 1784, 484, 11, 29, "Input",ExpressionUUID->"5e753c43-cad4-43a5-909d-ba1dc207d51c",
 CellID->1372666250],
Cell[68397, 1797, 966, 25, 44, "Output",ExpressionUUID->"981b73db-95d7-4145-a7a4-ba59f7c9ce08",
 CellID->1904934289]
}, Open  ]],
Cell[CellGroupData[{
Cell[69400, 1827, 527, 12, 50, "Input",ExpressionUUID->"6c67b537-a154-4a40-a8fe-9825735cb907",
 CellID->174342472],
Cell[69930, 1841, 6143, 206, 188, "Output",ExpressionUUID->"e50ec4ac-4529-42a9-88cd-15d73556e675",
 CellID->2051602948]
}, Open  ]],
Cell[CellGroupData[{
Cell[76110, 2052, 243, 5, 17, "ExampleDelimiter",ExpressionUUID->"77a0411b-92ee-4022-9c15-6fd25ee8e5a9",
 CellID->1319135198],
Cell[CellGroupData[{
Cell[76378, 2061, 511, 11, 29, "Input",ExpressionUUID->"005ead44-dfd1-4031-852f-c3d733d99749",
 CellID->84101158],
Cell[76892, 2074, 1635, 43, 62, "Output",ExpressionUUID->"8560ceab-d89f-42aa-8ea8-db5ef8cd71ed",
 CellID->1444023150]
}, Open  ]],
Cell[CellGroupData[{
Cell[78564, 2122, 579, 12, 50, "Input",ExpressionUUID->"7fd5b3e6-7d29-455e-984e-1320a210695f",
 CellID->1172460422],
Cell[79146, 2136, 6293, 203, 206, "Output",ExpressionUUID->"3ddbc299-2bf0-4788-baab-c5bf572f39d5",
 CellID->532607724]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[85490, 2345, 248, 5, 33, "ExampleSection",ExpressionUUID->"7c2a122d-1d81-4ce7-93c6-7142347aefe9",
 CellID->258228157],
Cell[85741, 2352, 259, 5, 21, "ExampleSection",ExpressionUUID->"1b022fac-e45d-40ec-be4d-9ff545a21f38",
 CellID->2123667759],
Cell[CellGroupData[{
Cell[86025, 2361, 252, 5, 21, "ExampleSection",ExpressionUUID->"1c03076d-3038-4933-8008-62730c3e3276",
 CellID->1305812373],
Cell[86280, 2368, 483, 12, 24, "ExampleText",ExpressionUUID->"96b39624-5b78-408a-a8be-8573713d8a0c",
 CellID->1140851266]
}, Open  ]],
Cell[86778, 2383, 257, 5, 33, "ExampleSection",ExpressionUUID->"e2dc79b9-4533-4c5d-8df8-c2cdb4feb557",
 CellID->1653164318],
Cell[87038, 2390, 249, 5, 21, "ExampleSection",ExpressionUUID->"9d783300-9028-4890-a791-400778bbd969",
 CellID->589267740],
Cell[CellGroupData[{
Cell[87312, 2399, 372, 8, 21, "ExampleSection",ExpressionUUID->"2bfe5758-7701-4330-bd81-09a9b2d0b4f2",
 CellID->626448229],
Cell[87687, 2409, 3090, 76, 431, "Input",ExpressionUUID->"a351347c-c5c1-4a8f-b19e-bcfc51b751e1",
 InitializationCell->False,
 CellID->1328922508],
Cell[90780, 2487, 8650, 197, 917, "Input",ExpressionUUID->"ed19cf80-0003-47c0-b61b-e144d4913188",
 InitializationCell->False,
 CellID->1370663156],
Cell[99433, 2686, 25755, 518, 2723, "Input",ExpressionUUID->"7a67447a-568e-4122-9d77-ea45653dca9c",
 InitializationCell->False,
 CellID->678581523]
}, Closed]]
}, Open  ]]
}
]
*)

